[Tutorial Basicao] Digitar somente Números

XSystemX

Honrado XPZ
14 de Julho de 2012
83
43
18
24
Digitar somente Números
 


No evento onkeypress declare:

procedure TForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Not (key in ['0'..'9',#8]) then
key := #0;
end;

Créditos : Victor_xp