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

[Namenloser]

Zitat:

Zitat von markus5766h (Beitrag 1095488)

oder mach' ich da jetzt einen Denkfehler ?

Ja, siehe Post #5 von himitsu.

[markus5766h]

So hab ich aber immer noch den Status (Variable Pop), ob das Popup-Menü vor dem
Klick auf das Control (hier Panel) geöffnet wurde, egal, ob ich zwischenzeitlich per ESC
oder Klick auf z.B. den Desktop das Popup-Menü schließe.?

[Namenloser]

Danke für dein Beispiel, aber wenn man einen Rechtsklick auf Panel1 macht, dann einen Linksklick auf das Formular und anschließend einen Linksklick auf Panel1, kommt die Meldung „Popup“. Und genau das soll sie in dem Fall eben nicht – das ist es, was ich meine.

Sie soll nur dann erscheinen, wenn unmittelbar vor dem Klick das Popupmenü geöffnet war.

[himitsu]

Du könntest über GetTickCount den Unterschied zwieschen den Aktionen bestimmen.

[markus5766h]

O.K., hab die Form jetzt noch in die Abfrage mit eingebunden,
wenn allerdings noch weitere Objekte hinzukommen,
die nicht zu den selektierten gehören (Buttons . . .) - und davon gehe ich mal aus -
wird diese Art der Abfrage nicht sonderlich glücklich enden.
. . . ich denk' noch mal drüber nach . . .

[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

[EWeiss]

Hmm ...
Weis nicht ob ich jetzt falsch liege.
Aber ich kann jederzeit feststellen ob mein Popupmenu geöffnet ist oder war.
Muss dazu nur ne globale Variable anlegen mit der man gegenprüfen kann.

Allerdings nonvcl.

Delphi-Quellcode:

    WM_NCRBUTTONDOWN:
    begin
      hPopupMenu := CreatePopupMenu;   // Bitmap Popupmenu
      hSubSkinMenu := CreatePopupMenu; // Bitmap SkinSubmenu
      if hPopupMenu <> 0 then
      begin
        AppendMenu(hPopupMenu, MF_OWNERDRAW, IDM_ABOUT,     '');
        AppendMenu(hPopupMenu, {MF_OWNERDRAW or} MF_SEPARATOR, IDM_Seperator, '');
        AppendMenu(hPopupMenu, MF_OWNERDRAW or MF_POPUP, hSubSkinMenu, 'Skins');

        MnuSkins := nil;
        Files := nil;
        FindAllFiles(ExtractFilePath(ParamStr(0)) + 'Skins', '.ske', True);
        SetLength(MnuSkins, length(Files));
        for IntI := 0 to length(Files) - 1 do
          AppendMenu(hSubSkinMenu, MF_OWNERDRAW, IDM_SKINS + IntI,   '');

        AppendMenu(hPopupMenu, {MF_OWNERDRAW or} MF_SEPARATOR, IDM_Seperator, '');
        AppendMenu(hPopupMenu, MF_OWNERDRAW, IDM_Close,           '');
        GetCursorPos(p);
        MenuWahl := TrackPopupMenuEx(hPopupMenu, TPM_RETURNCMD, p.X, p.Y, WinHandle, nil);
        DestroyMenu(hPopupMenu);
        if MenuWahl then
          SendMessage(WinHandle, WM_COMMAND, Makelong(Word(MenuWahl), 0), 0);
      end;
    end;

Da wo ich mein CreatePopupMenu erstelle kann ich den Status auch abfragen oder?

gruss

[Namenloser]

Das war zunächst auch mein Plan, nur leider funktioniert das nicht, weil (auch mit OnIdle)

Delphi-Quellcode:

popupshown := false;

immer vor dem MouseDown/MouseUp/Click-Event ausgeführt wird :(

Bin gerade etwas ratlos... es muss doch irgendeine bessere Lösung als ein Timeout (GetTickCount) geben :|

@EWeiss: Schau ich mir gleich mal an.
[edit]
Ok, meine WinAPI-Kenntnisse sind zu begrenzt, um zu beurteilen, ob mir dein Code weiterhilft. Herauszufinden, wann das Popup zerstört wird, ist inzwischen aber nicht mehr das Problem. Das Problem ist vielmehr herauszufinden, ob ein MouseDown/MouseUp/Click-Event eine Folge der Zerstörung des Popups ist.
[/edit]

[blauweiss]

Zitat:

Zitat von NamenLozer (Beitrag 1095506)

Das war zunächst auch mein Plan, nur leider funktioniert das nicht, weil (auch mit OnIdle)

Delphi-Quellcode:

popupshown := false;

immer vor dem MouseDown/MouseUp/Click-Event ausgeführt wird :(

Ok, schade, dann hilft es Dir wohl nicht.
Bin gerade in Delphi5, da ist es nicht wie in Deinem (Turbo)Delphi
-> MouseDown (auf Panel oder ListBox) wird vor OnIdle aufgerufen...!

Gruß,
blauweiss

[Namenloser]

Tatsache: MouseDown wird vorher aufgerufen, aber MouseUp später. Macht ja eigentlich auch Sinn.

Hab’s jetzt so gelöst:

Delphi-Quellcode:

  TfrmMain = class(TForm)
    {…}
  private
    FPopupActive,
    FPreventMouseUp: Boolean;
    procedure EnterMenuLoop(var Msg); message CM_ENTERMENULOOP;
  public
    {…}
  end;

procedure TfrmMain.EnterMenuLoop(var Msg);
begin
  FPopupActive := True;
end;

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

procedure TfrmMain.PaintBoxMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if FPopupActive then
  begin
    FPreventMouseUp := True;
    exit;
  end;
  {…}
end;

procedure TfrmMain.PaintBoxMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if FPreventMouseUp then
  begin
    FPreventMouseUp := False;
    exit;
  end;
  {…}
end;

Vielleicht sollte man noch eine Kontrolle einführen, ob MouseDown und MouseUp sich auf den gleichen MouseButton beziehen, aber vielleicht ist das auch schon wieder Overkill.

So funktioniert es jedenfalls erstmal.

Danke euch allen :thumb: