Im Objekt im Protected-Bereich das einfügen:
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
in der Implementation das einfuegen
Delphi-Quellcode:
procedure TForm1.Image1MouseDown(Sender: TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
inherited;
// hier das abarbeiten, was du möchtest
end;
Und wenn das Image dynamisch erzeugt wird, das ereignis zuweisen
Delphi-Quellcode:
Image1:=TImage.create(self);
Image1.OnMouseDown:=Image1MouseDown;
Gerd