PopupMenu dynamisch EventHandler zuweisen - Observer pattern?

[Rabenrecht]

So, neues Problem

Ich möchte das PopupMenu einer Komponente beim öffnen des Popups um einige Menupunkte erweitern. Dies soll unabhängig davon geschehen wie das PopUpMenu geöffnet wurde.

Nun bietet das Vcl PopupMenu ein OnOpen Event. Das wäre ja eigentlich genau das Richtige. Leider gibt es Fälle, in denen ein einfache Zuweisung einer Ereignisbehandlung fehlschlägt.

Delphi-Quellcode:

//In der Komponentendefinition
constructor TMyComp.Create;
begin
  [...]
  PopupMenu.OnOpen := myOnOpenProc;
end;

[...]

//irgendwo in einer Unit, die TMyComp verwendet
procedure Form1.Init;
begin
  FMyComp := TMyComp.Create;
  FMyComp.PopupMenu := anotherPopup;

Zack, schon ist die Ereignisbehandlung weg.

Von anderer Stelle habe ich den Tip erhalten, hier was mit nem Observer Pattern zu machen.
Die Frage ist, wer soll hier was observieren?

Was ich hier im wesentlichen erreichen möchte, ist jedem Popup-Menü, welches der PopupMenu Variable von MyComp gerade zugeteilt ist, die eine gleiche Ereignisbehandlung fürs OnPopup zuzuweisen.

Eine Idee wäre es, den Setter der PopupMenu property zu überschreiben (mein Delphi-Lieblingsthema...). Das ist bisher allerdings daran gescheitert, dass ich es nicht schaffe, den originalen Setter im override-Setter aufzurufen.

[Sherlock]

Du könntest bei der Zuweisung einer Methode für die Ereignisbehandlung diese Methode Dir merken und zusätzlich zur eigentlichen (also Deiner eigenen) Methode ausführen...

Sherlock

[CarlAshnikov]

Ich verstehe dein Problem noch nicht.

Zitat von Rabenrecht:

Was ich hier im wesentlichen erreichen möchte, ist jedem Popup-Menü, welches der PopupMenu Variable von MyComp gerade zugeteilt ist, die eine gleiche Ereignisbehandlung fürs OnPopup zuzuweisen.

Genau das machst du doch in deinem Quelltext.

Willst du dir das alte OnPopUp merken und dann wieder zurücksetzen wenn du ein Neues zugewiesen bekommst? Oder soll dein Neues und das Alte aufgerufen werden?

[himitsu]

So, wie ich es verstand:
Er will an das registrierte Popup der Komponente etwas anhängen (ihm ist egal was das für ein Popup ist)
und wenn später irgenwo im Code ein anderes Popup der Komponente zugewiesen wird, soll das dann halt an diesem anderen Popup dranhängen (seine zusätzlichen MenuItems).

[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;