Application.Terminate mit PopupMenu

[Patlinet]

Hallo Delphianer

Ich möchte ein Programm über einen Timer (TTimer) beenden (Application.Terminate). Leider funktioniert dies nicht, wenn ein PopupMenu geöffnet ist. Kann mir da jemand weiterhelfen?

[Patlinet]

Wir haben eine Lösung gefunden. Danke trotzdem.

Delphi-Quellcode:

procedure Txyz.TimerHandler(aSender: TObject);
begin
  DestroyWindow(GetForegroundWindow);  // Diese Zeile zerstört ein allfälliges PopupMenu
  Application.Terminate;
end;