Puedes controlarlo tu mediante este Código:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if ( StrScan('0123456789.-',Key) <> nil ) or
( Key = Char(VK_BACK) ) then { BackSpace Key }
begin
{Aqui tu tratamiento normal del evento}
end
else
Key := #0;
end;
Lo Colocas en el OnKeyPress del Edit y yatta!!!
Saludos!!!
__________________
.:.::FRANKER::.:.
|