Rechteck in ein Image zeichnen mit Mouse positioniertbar

[marabu]

Hallo Christian,

machst du noch mehr im Ereignis OnMouseDown()? Oder hast du aus Versehen das Ereignis der Form oder einer anderen Komponente benutzt, so dass die Koordinaten das falsche Bezugssystem haben? Das hier funktioniert:

Delphi-Quellcode:

procedure TDemoForm.ImageMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  with Sender as TImage do
    Canvas.Rectangle(X-5, Y-5, X+5, Y+5);
end;

Grüße vom marabu