VirtualStringTree OnKeyPress wird ohne Focus auf VST ausgeführt

[Bünni]

Mein VirtualStringTree hat ein eigenes OnKeyPress wo ich VK_F4 und VK_Return abfrage.
Wenn ich VK-F4 drücke wird ein modales Formular geöffnet. Auf diesem Formular gibt es ein TEdit welches auf die Entertaste reagiert und in diesem Fall einen Button klick, welcher das Formular schließen soll

Delphi-Quellcode:

procedure TForm2.Edit1KeyPress(Sender: TObject);
begin
 if (Key = #13) then
  begin
   Key := #0;
   Button1Click(Self);
  end;
end;

procedure TForm2.Button1Click(Sender: TObject; var Key: Char);
begin
 // viele Konditionen und Dinge

 Close;
end;

Das funktioniert alles wie gewollt bis auf, dass sobald Form2 geschlossen ist sich VSTKeyUp meldet und denkt, ich hätte VK_ENTER gedrückt. Habe ich auch, aber in einem anderen modalen Fenster.
Wie unterbinde ich dieses Verhalten?

[bcvs]

Hast du das mal langsam ausprobiert? Wenn du im Edit Return drückst und gedrückt lässt, wird das Formular geschlossen. Dann lässt du die Return-Taste lost und das Keyup-Event kommt beim Vst an.

Du solltes hier nicht OnKeyPress und OnKeyUp mischen. Also entweder in Vst und im TEdit auf OnKeyPress reagieren oder in beiden OnKeyUp verwenden.

[TurboMagic]

Ggf. den fälschlicherweise aufgerufenen Eventhandler beim VST an der entsprechenden Stelle mal auf nil setzen, dann kann da nix mehr aufgerufen werden.
Vermutlich muss er später aber wieder zugewiesen werden.

[Bünni]

Für das VST habe ich OnKeyDown genommen und OnKeyUp ersetzt.
Das scheint so jetzt ganz gut zu funktionieren.
OnKeyUp scheint aber auch allgemein ein Teufel zu sein auch was Fokus angeht. Werde es nicht mehr nutzen wenn möglich.

Understanding and Processing Keyboard Events in Delphi