Validar un TEdit.....

[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