OnMouseDown-Ereignis bei dynamisch erstelltem Image

[bernau]

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