TPopupMenu Close Event abfragen ?!?

[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