Zur Laufzeit erzeugt (onemousedown?)

[alleinherrscher]

Delphi-Quellcode:

  private
    { Private-Deklarationen }
    procedure MyOnMouseDownProcedure(Sender:TObject;Button:TMouseButton;Shift:TShiftState;x,y:integer);

Delphi-Quellcode:

procedure TForm1.MyOnMouseDownProcedure(Sender:TObject;Button:TMouseButton;Shift:TShiftState;x,y:integer);
begin

// Dein Source Code

end;

procedure TForm1.ErzeugeMeinImage;
var
MyImage:TImage;
begin

MyImage:=TImage.create(self);

with MyImage do
 begin
   width:=50;
   height:=50;
   top:=10;
   left:=10;
   parent:=self; 
   OnMouseDown:=MyOnMouseDownProcedure;
                                           
 end;
end;