Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Rechteck in ein Image zeichnen mit Mouse positioniertbar

    Delphi
    by marabu, 20. Apr 2006
  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:
  
  
  procedure TDemoForm.ImageMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  begin
  with Sender as TImage do
  ...