TNotifyEvent durchreichen?

[jziersch]

Hallo,

da Du die radio group ja im code erzeugsts, kannst Du leicht eine eigene Klasse verwenden:

Code:

type TMyRadioGroup=class(TRadioGroup)
   protected
   procedure Click; override;
end;

{ TMyRadioGroup }

procedure TMyRadioGroup.Click;
begin
   inherited;
   if Assigned((Parent as TPanel).OnClick) then
        (Parent as TPanel).OnClick(Parent);
end;

und dann so erzeugen:

rd := TMyRadioGroup.Create(Panel1);

Leider ist im TControl das OnClick protected sodass ich hier die Klasse des Parent as TPanel fest codiert habe.
Ein Zugriff auf die protected Eigenschaften ist über die runtime information möglich, ist aber overkill, wenn man eh weis, was das Parent ist.