[Tutorial Basicao] Digitar somente Números

[XSystemX]

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