Eigene Kompo von TButton ableiten? Wie OnClick realisieren?

[Alter Mann]

Hi

sollte es nich so heißen?

Delphi-Quellcode:

//... 
type 
  TMyButton = class(TButton) 
  private 
    fActionGroup : TActionGroup; 

  protected 
    procedure Click();override;   
  public 
    property Actiongroup: TActionGroup read factiongroup write fActionGroup; 
  published 
    { Published declarations } 
  end;
...

TButton stammt von TButtonControl ab und das wiederum von TWinControl und damit ist Click -> protected.

Gruß