Validar Cajas de texto

[grone35]

Que tal Gente!

Tengo una dudita interesante!1 quisiera que me pudiran ayudar a validar una caja de texto para que solo pueda recibir numeros y otra solo letras.

Gracias!!

[D-MO]

Esta búsqueda por los foros te puede ayudar.

Saludos.

[[brakaman]]

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.