Zahlen sperren

Acehigh · Hält's aus hier Beiträge: 14

Guten Morgen!
Ich habe mir schon einiges zu diesem thema im forum gelesen, hab jedoch nichts zum laufen kriegen können. Wenn in eines meiner drein Edit Felder etwas anderes als eine Zahl eingetippt wird soll sofort eine Meldung erscheinen.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TFormPalette.FormKeyDown(Sender: TObject; var Key: Char);

begin

if not (key in ['0'..'9',#8]) then
 begin
 ShowMessage('Bitte nur Zahlen eingeben');
end;
end;

Die ganze Datei ist im Anhang!

Gruß Acehigh

Einloggen, um Attachments anzusehen!

Gausi · Verfasst: Do 03.06.10 09:32

Du musst diese Methode dem OnKeyDown-Event der Edits zuweisen, nicht dem der Form.

Wenn du ein neueres Delphi benutzt (Delphi 2009 hat es), dann kannst du auch die Eigenschaft NumbersOnly des Edits benutzen.

_________________
We are, we were and will not be.

Acehigh · Hält's aus hier Beiträge: 14

Danke für die Tipps! Hat sehr gut funktioniert

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme