Hi Forum.
Ich brauche eure Hilfe (mal wieder) und bin leider nicht fündig geworden.
Es geht um folgendes:
Ich habe 8 Edit-Felder und rufe in jedem das Ereignis
OnKeyPress auf. Nun will ich aber nicht in jedem die benötigten Zeilen schreiben, sondern diese Zeilen in eine Extra-Prozedur setzen. Diese sieht so aus:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| procedure TFischform1.Zahlen(Sender: TObject; Var Key: Char);
begin
If Not (Key In ['0'..'9']) Then
Begin
Key:=#0;
ShowMessage('Es dürfen nur Zahlen eingegeben werden!');
End;
end; |
Ich rufe die Prozedur so auf:
Delphi-Quelltext
1:
2:
3:
4:
| procedure TFischform1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Zahlen(Sender);
end; |
Ich weiß, ich muß dann noch einen Parameter mitgeben, wenn ich die Prozedur aufrufen will (ich kriege auch die Fehlermeldung dazu). Nur,
wie lautet der Parameter???
Kann mir das jemand sagen?
