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.