Validar un TEdit.....

[chileno]

Hola a todos....

mas que nada no validar los datos ingresados a un tedit....si no es evitar pegar una serie de caracteres a este componente (teclas Ctrl + V)......hecemen un cable para sacar este problemilla....
saludos a todos....

[fidel]

Pon en el evento OnKeyPress del edit

Código Delphi [-]
//controlar entrada solo números
  if ( StrScan('0123456789.'+chr(7)+chr(8), Key) = nil ) then  Key := #0;
  //cambiar punto decimal por coma
  if key = '.' then key := ',';
  //controlar entrada una sola coma
  for i := 1 to length(EDos.Text) do
    if ( copy(EDos.Text,i,1) = ',' ) and not ( StrScan(',', Key) = nil ) then  Key := #0;

[[cHackAll]]

La validación es un paquete incluido , pero lo mejor es que el Ctrl+V no va a funcionar

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 Edit1.ReadOnly := not (Key in [#8, '0'..'9', 'a'..'z']); // etc...
end;

[[Lepe]]

cHackAll, pero si usamos el botón derecho del ratón y Pegar, entonces si lo haría ¿no?

En esos casos pongo un popupmenu en la ventana (sin elementos popupmenuItem) y lo asigno al edit/combo/etc. Así el menú estandard de windows (Copiar, cortar, pegar) se suplanta por el mío propio, que al no tener elementos, no se muestra.

Yo hubiera usado el evento OnKeyDown, allí tienes el parámetro Shift, por lo que podrías inhabilitar el Ctrl + V, pero habilitar el Ctrl + C, no sé si servirá de utilidad en este caso.

Saludos.

[georgejg]

Lepe En esos casos pongo un popupmenu en la ventana (sin elementos popupmenuItem) y lo asigno al edit/combo/etc. Así el menú estandard de windows (Copiar, cortar, pegar) se suplanta por el mío propio, que al no tener elementos, no se muestra.

Lepe me podrias ampliar la informacion sobre como suplantar el Menu estandar de Windows.

tengo un Tedit y necesito que no se pueda pegar de ninguna forma, ya impedi que me digitaran numeros y por lo tanto se bloquea el Ctrl + v.

Pero si le doy Click derecho sobre el Tedit entonces el Menu estandar de Windows le permitira al usuario pegar.

[ixMike]

Tan sólo coloca al TEdit un TPopupMenu propio, incluso vacío.


Bienvenido, y saludos.

Por cierto, échale un vistazo a la guía de estilo

[[David]]

Hola

De otro post me han enlazado a este. He visto el código para introducir sólo numericos en el edit y si le agregas un TPopupmenu pues no funciona el pegar, que permite pegar strings.

Pero ahora tengo la pregunta. No habría una forma de que si el portapapeles tuviera un número válido, si se pudiera pegar con ctrl+v o botón derecho, pegar.

Edito, porque me surge un duda, si pones un punto se convierte en coma, perfecto, pero si pulsas la coma, no se añade nada, no te deja, ¿Qué habría que añadir en el código para permitir también la coma?

[[David]]

lo de la coma ya lo he averiguado.

Ahora que permita pegar sólo numeros, y si no es número que no permita pegar, pues no tengo ni idea.


Me gustaría también como modificar el código, para poder insertar números negativos.

[[cHackAll]]

Empezado por David

...No habría una forma de que si el portapapeles tuviera un número válido, si se pudiera pegar con ctrl+v o botón derecho, pegar...

Puedes revisar su contenido para habilitar o no su pegado, busca "Clipbrd" ó "OpenClipboard".

Empezado por David

...si pones un punto se convierte en coma, perfecto, pero si pulsas la coma, no se añade nada, no te deja, ¿Qué habría que añadir en el código para permitir también la coma?

Saludos

Edito: solo permite la posibilidad que el primer caracter sea '-'.

[ContraVeneno]

¿por que no utilizar un TjvValidateEdit?

A ese control nada más le cambias una propiedad y ya no acepta caracteres, solo números, le puedes dar el formato que quieras y no necesitas hacer ninguna conversión de texto a número, ya que el control las hace solo de forma transaparente. En pocas palabras, con un TjvValidateEdit no tienes que escribir NADA de código para validarlo.

Viene en las Jedi (JVCL) que son gratis y muy recomendables.