PopupMenu dynamisch EventHandler zuweisen - Observer pattern?

[Uwe Raabe]

Vielleicht so?

Delphi-Quellcode:

type
  TMyComp = class(TControl)
  private
    function GetPopupMenu: TPopupMenu;
    procedure myOnPopupMethod(Sender: TObject);
    procedure SetPopupMenu(const Value: TPopupMenu);
  protected
    procedure Loaded; override;
  published
    property PopupMenu: TPopupMenu read GetPopupMenu write SetPopupMenu;
  end;

procedure TMyComp.Loaded;
begin
  inherited;
  if PopupMenu <> nil then begin
    PopupMenu.OnPopup := myOnPopupMethod;
  end;
end;

procedure TMyComp.myOnPopupMethod(Sender: TObject);
begin
  // ...
end;

function TMyComp.GetPopupMenu: TPopupMenu;
begin
  Result := inherited PopupMenu;
end;

procedure TMyComp.SetPopupMenu(const Value: TPopupMenu);
begin
  inherited PopupMenu := Value;
  if PopupMenu <> nil then begin
    PopupMenu.OnPopup := myOnPopupMethod;
  end;
end;