• Bem vindo à nossa comunidade - Quer se juntar ao resto dos nossos membros? Registre-se*Registros aprovados pela adminitração

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
Topo Bottom