[Gelöst] Testen ob Popupmenu gerade angezeigt wird?

[blauweiss]

Hallo Philip,

meiner Meinung nach ist der Vorschlag von Stahli / Marabu / Jens Schumann doch irgendwie der einfachere Weg ?! Setze ich übrigens auch so ein, also in der Art:

Delphi-Quellcode:

procedure TfMyForm.ApplicationEventsIdle(Sender: TObject; var Done: Boolean);
begin
  popupshown := false;
end;

procedure TfMyForm.PopUpMenuPopup(Sender: TObject);
begin
  popupshown := true;
end;

Im MouseDown Deiner Fläche dann einfach noch

Delphi-Quellcode:

if popupshown then
  exit;

Gruß,
blauweiss