Eigenes OnClick-Event

[FAlter]

Hi,

dann mach es so:

Delphi-Quellcode:

  ...
  protected
    procedure Click; override; //ist als dynamic gekennzeichnet
  ...

procedure TMyComponent.Click;
begin
  //Hier dein Code - vorher
  inherited;
  //Hier dein Code - nachher
end;

Mfg
FAlter

[edit]Genau diese Empfehlung gibt es in der OH: TControl.Click Überschreiben, wenn mehr gertan werden soll.[/edit]