|
espero q t sirva
has probado con el evento OnKeyPress del edit?
procedure TForm1.Edit1OnKeyPress(Sender: TObject; Key: char);
begin
if Key in ['a'..'z', 'A'..'Z'] then Key := #0;
end;
no sé si es exactamente lo q necesitas. a mi me funciona.
solo tiene un fallo, y es que no funciona con letras con acento y la ñ. para eso tendrías que añadirlas a la lista
|