|
Hola amigo:
Por caja de texto te refieres a un control TEdit ¿no? :-)
Limitado para entrar numeros.
// Algo como esto.
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if ( StrScan('0123456789.-',Key) <> nil ) or
( Key = Char(VK_BACK) ) then // Tecla retroceso
begin
// Coloca aqui tu codigo.....
end
else
Key := #0;
end;
Y solo letras te lo dejo a ti :-))
Saludos.
|