Tastenabfrage

1_of_1 · Beiträge: 35 Delphi 5

Ich möchte bei Tastendruck abfragen, ob eine Zahl gedrückt wurde, oder nicht. Sollte dies nicht der Fall gewesen sein, soll keine Eingabe erfolgen. Wieso funktioniert das hier nicht?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in [#8,#48..#57])
   then
   Key := #0;
end;

mkinzler · Verfasst: So 18.06.06 14:25

Hast du dir den Ablauf im Debugger angesehen?

_________________
Markus Kinzler.

1_of_1 · Beiträge: 35 Delphi 5

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

markieren

Delphi-Quelltext

1:	Form1.KeyPreview := True;

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

1_of_1 · Beiträge: 35 Delphi 5

OK, Danke!
Habe jetzt die Prozedur einfach beim jeweiligen Edit-Feld eingebaut. Funktioniert so auch.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme