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?