Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#3

Re: Rechteck in ein Image zeichnen mit Mouse positioniertbar

  Alt 20. Apr 2006, 12:55
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
  Mit Zitat antworten Zitat