Zwei OnClick-Events in einer Klasse

[maximov]

Ich bin mir sicher, dass onClick aus der dynamischen methode Click aufgerufen wird:

siehe da

Delphi-Quellcode:

TControl = class(TComponent)
...
procedure Click; dynamic;
...

dh. einfach overriden:

Delphi-Quellcode:

type
  TDeineKompoOnClick = class(...)
    ...
    procedure Click; override;
  end;


procedure TDeineKompoOnClick .Click;
begin
  // .. hier ne Menge Code

  inherited; // original aufrufen ... unter anderem auch OnCLick generieren
end;

sollte gehen

mfg.