TNotifyEvent durchreichen?

[HolgerX]

Hmm...

Zitat von jziersch:

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.

Wieso RTTI ?

Geht auch einfacher, nur 2 Zeilen mehr

Delphi-Quellcode:

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


{ TMyRadioGroup }

Type
  TControlCrack = class(TControl);

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

(Oder geht das mit neuerem Delphi nicht mehr)

(Erstellt mit D6)