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