Hallo,
wollen wir mal Dein Wissen erweitern:
1. Zuweisung des Ereignisses beim Erzeugen des Memeos:
Quelltext
1: 2: 3: 4: 5:
| ... aMemo:=TMemo.Create(Self); aMemo.Parent:=Self; aMemo.OnKeyPress:=MyKeyPress; ... |
2. Deklaration von
MyKeyPress:
Quelltext
1: 2: 3: 4:
| ... private procedure MyKeyPress(Sender:TObject; var Key:Char); ... |
3. Coden von
MyKeyPress:
Quelltext
1: 2: 3: 4:
| procedure TMyForm.MyKeyPress(Sender:TObject; var Key:Char); begin if (Key in ['1'..'9', 'a'..'z']) then tuIrgendEtwas; end; |
Hoffe es hilft.
_________________
Gruß Smiegel
Ich weiß, daß ich nichts weiß, aber ich weiß mehr als die, die nicht wissen, daß sie nichts wissen. (Sokrates)