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

[markus5766h]

Hallo,

falls Du bei Deinen Objekten das Ereignis 'MouseDown' oder 'OnClick' nutzen kannst :

eine Variable (Boolean) bei Popup.OnPopup auf True setzen und bei z.B. MouseDown Deiner
Objekte nach der Auswertung (Selektionsaufhebung . . .) wieder auf False setzen.

. . . wäre zuzmindest mein erster Ansatz

[himitsu]

Zitat von markus5766h:

. . . wäre zuzmindest mein erster Ansatz

Man schließe das Popup irgendwie anders (ESC drücken, Woanders hinklicken oder einen Eintrag auswählen) und klicke dann irgendwann später auf seine "Fläche" ... schwupps, der erste Klick wird erstmal ignoriert.

[Namenloser]

Okay, ich habe jetzt diesen Thread hier gefunden: Prüfen, ob ein Popupmenü geöffnet ist
Bin aber noch nicht sicher, ob mir das weiterhilft...

[markus5766h]

Zitat von NamenLozer:

Okay, ich habe jetzt diesen Thread hier gefunden: Prüfen, ob ein Popupmenü geöffnet ist
Bin aber noch nicht sicher, ob mir das weiterhilft...

funzt

[Namenloser]

Zitat von markus5766h:

Zitat von NamenLozer:

Okay, ich habe jetzt diesen Thread hier gefunden: Prüfen, ob ein Popupmenü geöffnet ist
Bin aber noch nicht sicher, ob mir das weiterhilft...

funzt

Das bezweifele ich gar nicht, die Frage ist nur, ob ich das für mein Szenario zurechtbiegen kann. Leider hatte himitsu anscheinend mit seiner Vermutung recht, dass das Popupmenu bereits verschwindet, bevor das OnMouseDown ausgelöst wird.

@stahli: Sieht ganz interessant aus, aber ich glaube die Lösung mit der Extra-Unit (s.o.) ist sauberer.

[markus5766h]

O.K.

wenn ich nun nicht prüfen kann (jedenfalls nicht so einfach), ob ein Popup-Menü geschlossen wurde - dann doch zumindest, ob vorher eines geöffnet wurde . . .
oder mach' ich da jetzt einen Denkfehler ?

Code:

    uses . . ., ExPopupList;

    Pop : Boolean;
    procedure CMMenuClosed(var Msg: TMessage ); message CM_MENUCLOSED;
    procedure CM_ENTERMENULOOP(var Msg: TMessage ); message CM_ENTERMENULOOP;



procedure TForm1.CMMenuClosed(var msg: TMessage);
begin
  // nothing
end;

procedure TForm1.CM_ENTERMENULOOP(var Msg: TMessage);
begin
  Pop := True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Pop := False;
end;

procedure TForm1.Panel2Click(Sender: TObject);
begin
  if Pop
    then ShowMessage('Popup') else ShowMessage('No Popup');
  Pop := False;  
end;

das Schließen des Popups über ENTER oder ESCAPE müsste dann noch per
OnKeyDown ausgewertet werden.

Code:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if (Key = VK_Return) or (Key = VK_Escape) then Pop := True; 
end;

[Namenloser]

Zitat von markus5766h:

oder mach' ich da jetzt einen Denkfehler ?

Ja, siehe Post #5 von himitsu.

[stahli]

Schau mal, ob Dir hier etwas hilft...