Keypress erst nach Key ausführen

[naudoc]

Hallo,

ich habe folgendes Problem...
Ich möchte das Ereignis OnKeypress benutzen als Sucheinschränkung benutzen:

if pos(edit.text,X)>0 then ...

nun möchte ich aber, dass edit.text schon den Key enthält. Da ich mehrere eigene procedures aufrufen will fällt

if pos(edit.text+Key,X)>0 then ...

aus. Gibts ne möglichkeit, dass OnKeypress erstmal den Key "pressed" oder wie auch immer...?

Vielen Dank schonmal...

[Dani]

Hi, vielleicht ist das OnChange Ereignis eher das, was du suchst.

[Progman]

TEdits haben u.a. die Ereignisse OnKeyDown, OnKeyPress, OnKeyUp.
Da sollte man ansetzen, denn da steht das Zeichen schon zur Verfügung und da kann man "Filtern".

[Hansa]

Du hast nicht angegeben, was wo gemacht werden soll. Deshalb StringGrid :

Delphi-Quellcode:

procedure Tfrm.sgKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var ch : char;
begin
  if key = VK_F9 then begin
    frmSuch := TfrmSuch.Create(self);
..
    key := VK_RETURN;
    ch := chr (key);
    sgKeyPress(Sender,ch);
    key := ord (ch);

Vielleicht hat jemand besser polierte Glaskugel. 8)