somente números

  1. XSystemX

    [Tutorial Basicao] Digitar somente Números

    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