Ich lerne gerade erst was Ableiten überhaupt bedeutet.
Das Problem ist, dass DoPopup grundsätzlich nicht aufgerufen wird, obwohl ich das Event doch überschrieben habe (Interposer-Klasse).
Ich möchte mit DoPopup das aktuell sichtbare Popupmenu in
TPopupListEx(PopupList).PopupMenu speichern.
In WndProc > WM_EXITMENULOOP wird es dânn auf
nil gesetzt.
Ich würde ja zum Setzen des aktuell sichtbaren Menus
WM_ENTERMENULOOP nutzen aber ich brauche den Sender und den habe ich in
WndProc nicht.
Delphi-Quellcode:
type
TPopupMenu =
class(
Vcl.Menus.TPopupMenu)
private
protected
procedure DoPopup(Sender: TObject);
override;
public
end;
implementation
procedure TPopupMenu.DoPopup(Sender: TObject);
// WIRD NIE AUFGERUFEN. WARUM?!
begin
ShowMessage('
ABC');
TPopupListEx(PopupList).PopupMenu := Sender
as TPopupMenu;
inherited;
end;