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

[Namenloser]

Das war zunächst auch mein Plan, nur leider funktioniert das nicht, weil (auch mit OnIdle) 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 von NamenLozer:

Das war zunächst auch mein Plan, nur leider funktioniert das nicht, weil (auch mit OnIdle) 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

[EWeiss]

Ah jo das hättest du auch schon hier sehen können
WM_NCRBUTTONDOWN:

Würde nie ein popup in WM_NCRBUTTONUP: erstellen.

gruss

[Namenloser]

Zitat von EWeiss:

Ah jo das hättest du auch schon hier sehen können
WM_NCRBUTTONDOWN:

Würde nie ein popup in WM_NCRBUTTONUP: erstellen.

gruss

Tu ich, bzw. die VCL auch nicht. Darum geht es auch nicht. Aber im MouseUp-Event wird bei mir die Selektion in meinem Programm zurückgesetzt; und diesen Nebeneffekt beim Schließen eines Popupmenüs wollte ich verhindern, was ja jetzt auch geglückt ist.

[EWeiss]

Zitat von NamenLozer:

Zitat von EWeiss:

Ah jo das hättest du auch schon hier sehen können
WM_NCRBUTTONDOWN:

Würde nie ein popup in WM_NCRBUTTONUP: erstellen.

gruss

Tu ich, bzw. die VCL auch nicht. Darum geht es auch nicht. Aber im MouseUp-Event wird bei mir die Selektion in meinem Programm zurückgesetzt; und diesen Nebeneffekt beim Schließen eines Popupmenüs wollte ich verhindern, was ja jetzt auch geglückt ist.

Das freut mich für dich

gruss