camaleonteplus (Normal User)
Pro
Messaggi: 95
Iscritto: 05/03/2009
|
Codice sorgente - presumibilmente Delphi |
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not( key in['0'..'9', #8] ) then begin MessageBeep(20); ShowMessage('Errore') key := #0; end; end;
|
In questo caso dovrebbe permettermi solo l'inserimento di numeri da 0 a 9. Invece non funziona non mi da nessun errore. Come posso risolvere questo problema?
|