Komponentenentwicklung - Event weiterleiten - Denkfehler?

[Neutral General]

Ja gut, dann musst du wirklich in der innersten Komponente im Event ein Event feuern und das nach oben leiten bis zu TBar und dann zum User.
Finde ich aber besser als irgendwo irgendwelche Koordinaten abzufragen oder sowas..

Delphi-Quellcode:

TFoo = class(TCustomControl)
private
  FSomeVar: TSomeType;
protected
  procedure WM_Paint(var Msg: TMessage) message WM_PAINT;
public
  property OnGetSubComponents;
  property OnButtonClick: TNotifyEvent read FOnButtonClick write FOnButtonClick;
end;

procedure TFoo.Button1Click(Sender: TObject);
begin
  if Assigned(FOnButtonClick) then
    FOnButtonClick(Sender);
end;

// TFooBar 

TFooBar = class(TCustomControl)
private
  FSomeVar: TFoo;
protected
  procedure WM_Paint(var Msg: TMessage) message WM_PAINT;
  property OnButtonClick: TNotifyEvent read FOnButtonClick write FOnButtonClick;
end;

constructor TFooBar.Create()
begin
  FSomeVar.OnButtonClick := InternalButtonClick; 
end;

procedure TFooBar.InternalButtonClick()
begin
  if Assigned(FOnButtonClick) then
    FOnButtonClick(Sender);
end;

// TBar 

TBar = class(TCustomControl)
private
  FSomeVar: TFooBar;
protected
  procedure WM_Paint(var Msg: TMessage) message WM_PAINT;
public
  property OnGetSomeData;
end;

constructor TBar.Create()
begin
  FSomeVar.OnButtonClick := InternalButtonClick; 
end;

procedure TBar.InternalButtonClick()
begin
  if Assigned(FOnButtonClick) then
    FOnButtonClick(Sender);
end;

[Aviator]

Zitat von Neutral General:

Ja gut, dann musst du wirklich in der innersten Komponente im Event ein Event feuern und das nach oben leiten bis zu TBar und dann zum User.

Wow. Ich hätte wirklich gedacht, dass das einfacher gehen müsste und ich etwas falsch mache. Dann muss ich mir jetzt was überlegen ...

Zitat von Neutral General:

Finde ich aber besser als irgendwo irgendwelche Koordinaten abzufragen oder sowas..

Ja. Einfacher ist es bestimmt.

[Neutral General]

Mir fällt zumindest nichts einfacheres ein
Will nicht ausschließen, dass es dafür eine einfachere/elegantere Lösung gibt.
Falls ja, wäre ich auch daran interessiert zu wissen wie