Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Memo - OnKeyPress


Luncustaf - Mo 16.12.02 10:03
Titel: Memo - OnKeyPress
Hi,

ich erstelle hier einige memo's zur Laufzeit nun will ich abfragen ob in dem aktuellen Memo eine Taste betätigt wurde. normal würde ich das Ereignis OnKeyPress nehmen aber da ich das memo zur laufzeit generiere ist das nicht so einfach und wenn es doch möglich sit übersteige es mein wissen.

kann mir da vielleicht jemand helfen.


gr€€tz


smiegel - Mo 16.12.02 10:28

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.


Luncustaf - Mo 16.12.02 11:06

hey :)


danke vielmals für deine hilfe :) kann ich so jedes ereigniss von einer komponente ansprechen :) is ja goil :) vielmals thx hast mir echt sehr geholfen :)

gr€€tz