TPopupMenu Close Event abfragen ?!?

[lorrey]

Hi Folks!

Weis jemand von Euch wie man bei einem TPopupMenu den "Close" Event abfangen kann ?!?

Leider gibt es ja nur OnChange und OnPopup...

Danke für Eure Hilfe!

[alcaeus]

Bei TPopupMenu gibt es mehrere Wege auf die das Menü wieder geschlossen wird:
Mausklick auf Menüpunkt bzw. außerhalb
ESC-Taste
Enter-Taste
Shortcut eines Menüpunkts
Dies bedeutet, dass bei der OnClick eines Menüpunkts das Menü geschlossen wird. ESC und Mausklick außerhalb könntest du über das Form abfragen, ich bin mir aber nicht so ganz sicher...

[lorrey]

Danke für Deine Antwort!

Diese Möglichkeiten sind mir schon klar, allerdings wollte ich sie nicht gerne einsetzen, da unter dem Popup Menü verschiedenen Komponenten liegen, von denen ich dann zb den OnClick Event abfragen müsste!

Das ist zwar eine Lösung, aber keine schöne

Deswegen wollte ich das mit einem Event machen, statt mit mehreren...!

Fällt Dir vielleicht sonst nach was ein?!?

Gruss

[alcaeus]

Nö,leider weiß ich im Moment nix anderes, vielleicht schreibt ja die Elite was...

[stahli]

Ist zwar eine alte Anfrage, aber vielleicht hilft es ja jemandem...

Für eine eigene Kompomente habe ich eine Lösung, die funktioniert:
Wenn das PopupMenü eingeblendet wird, wird die eigene Komponente überzeichnet. Hier setze ich ein lokales Flag.
Wird das PopupMenü geschlossen (egal, durch wen oder warum), wird die eigene Komponente neu gezeichnet. Dies fange ich in der procedure Paint ab. Ist das PopupFlag beim Aufruf von Paint gesetzt, wurde das PopupMenü geschlossen...

Ist etwas umständlich, funktioniert aber bei eigenen Komponenten korrekt:

Delphi-Quellcode:

TMyPanel = class(TPanel)
private
  PopupFlag:Boolean;
  ...
protected
  procedure StartPopupMenuMode; virtual;
  function GetPopupMenuMode:Boolean; virtual;
  procedure EndPopupMenuMode; virtual;
  ...
public
  procedure Paint; override;
  ...

procedure TMyPanel.StartPopupMenuMode;
var P:TPoint;
begin
  if (PopupMenu<>nil) then begin
    if (GetPopupMenuMode) then EndPopupMenuMode;
      P.X:=(Width div 2);
      P.Y:=(Height div 2);
      P:=ClientToScreen(P);
//      SetCursorPos(P.X,P.Y);
      PopupMenu.PopupComponent:=Self;
      PopupFlag:=True;
      PopupMenu.Popup(P.X,P.Y);
      PopupFlag:=True;
    end;
  end;
end;

function TMyPanel.GetPopupMenuMode:Boolean;
begin
  Result:=((PopupMenu<>nil) and (PopupFlag));
end;

procedure TMyPanel.EndPopupMenuMode;
begin
  if (GetPopupMenuMode) then begin
    PopupFlag:=False;
  end;
end;

procedure TMyPanel.Paint;
begin
  if (PopupFlag) then begin
    PopupFlag:=False;
    PopupMenueGeschlossen_WasMachen;
  end;
  inherited;
end;

Stahli

[marabu]

Hallo Stahli,

interessanter Ansatz. Hier noch zwei Links zum Thema:

Erkennen, wenn ein TPpopupMenu verschwindet

Feststellen ob Kontextmenue offen ist

Grüße vom marabu