Escribir solo números en un edit

[ecfisa]

Empezado por CarlosAlberto

¿cómo debo hacer para escribir sólo números en un "edit", es decir al teclear cualquier tecla que no sean números no escriba nada.

Hola Carlos.

Código Delphi [-]
procedure OnlyNumber(Sender: TWinControl);
begin
  SetWindowLong(Sender.Handle, GWL_STYLE,
    GetWindowLong(Sender.Handle, GWL_STYLE) + ES_NUMBER);
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  OnlyNumber(Edit1);
  OnlyNumber(Memo1);
  ...
end;

Saludos.