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.

[CarlosAlberto]

Estimados amigos del club:
Muchas gracias por las repuestas que me enviaron. Ahora quisiera poder presionar la tecla "Enter" además de los números y pasar al siguiente edit.
Gracias.
Saludos.

[Casimiro Noteví]

Preguntas distintas en hilos distintos, no olvides nuestra guía de estilo.
Y si haces una búsqueda... lo encontrarás más rápido, es algo que se ha tratado muchas veces.

[CarlosAlberto]

Todo me ha servido.
Muchas Gracias.