Delphi - (Delphi 7) Errore In Tedit

Forum - Delphi - (Delphi 7) Errore In Tedit

camaleonteplus (Normal User)
Pro

Messaggi: 95
Iscritto: 05/03/2009

Postato alle 12:16
Martedì, 22/09/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?

camaleonteplus (Normal User)
Pro

Messaggi: 95
Iscritto: 05/03/2009

Postato alle 12:17
Martedì, 22/09/2009

Anche se sul mio PC non mi da segnalazioni di errori di digitalizzazione sembra che il codice funziona e posto l'alternativa per il testo.

Codice sorgente - presumibilmente Delphi

procedure TForm1.PCKeyPress(Sender: TObject; var Key: Char);
begin
if not( key in['a'..'z', #10] ) then
begin
MessageBeep(20);
ShowMessage('Digita Solo Carateri');
key := #0;
end;
end;