validar que las cajas de texto solo acepten valores enteros y decimales

[ecfisa]

Hola dimer18.

Para que acepte sólo números enteros (0-9):

Código Delphi [-]
procedure SoloNumeros(Hnd: THandle);
begin
  SetWindowLong(Hnd, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) or ES_NUMBER);
end;
...
begin
  SoluNumeros(Edit1.Handle);
end;

Para que acepte números decimales usá este código en el evento OnKeyPress:

Código Delphi [-]
procedure TForm.EditKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in [#8,',',' ','0'..'9']) then  //quitando: #8 y ',' sirve para numeros enteros
  begin
    MessageBeep(MB_ICONERROR);
    Key:=#0;
  end;
end;

Si querés ampliar la verificación contemplando que pudieran pegar contenido desde el portapapeles, agrega este código al evento OnExit:

Código Delphi [-]
procedure TForm.EditExit(Sender: TObject);
var
  v: Double;
begin
  if not TryStrToFloat((Sender as TEdit).Text, v) then
  begin
    MessageBeep(MB_ICONERROR);
    (Sender as TEdit).SetFocus;
  end;
end;

Saludos.

[[Caral]]

Hola
Osea: Tarea cumplida.
Saludos Amigo ecfisa

[ecfisa]

Empezado por Caral

Hola
Osea: Tarea cumplida.
Saludos Amigo ecfisa

No puedo con mi genio , siempre me traiciona...

Un abrazo y espero que estes disfrutando esas merecidas vacaciones.

[[Caral]]

Hola
Que va amigo, me queda una semana de trabajo todavía.
Pero gracias por tus sentimientos.
Saludos
Pd: No creas, aveces estar en casa no es nada descansado (pinta aquí, corta el césped, arregla el tubo, lava los coches si esta aburrido )
Estoy casado amigo, recuerda lo .

[microbiano]

Jajajajaja Creo Que Solo Los Que Estamos Casados Entendemos Amigos Caral Que Vacaciones En Casa No Son Vacaciones Jejjeje.

[Casimiro Noteví]

¿Vacaciones y casado, en casa?, no son vacaciones. Seguro.