Funktion in Komponente überschreiben

[turboPASCAL]

zB. so:

Delphi-Quellcode:

interface

uses
  Windows,...;

type
  TForm1 = class(TForm)
    Image1: TImage;
  private
    { Private-Deklarationen }
    procedure onMyImgClick(Sender: TObject); // <---<<<
  public
    { Public-Deklarationen }
  end;

//...

implementation

//...

procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.OnClick := onMyImgClick;
  //...
end;

procedure TForm1.onMyImgClick(Sender: TObject);
begin
  // to do
end;