Einzelnen Beitrag anzeigen

Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#4

AW: Mauszeigerposition ungleich Mauszeigericonposition

  Alt 3. Aug 2010, 21:48
"Mouse.CursorPos" bezieht sich auf die Bildschirmkorrdinaten. Die des TImages beziehen sich auf dein Formular.
Daher diese Unterschiede.

Würde sich dein Formular am Bildschirm exakt oben links befinden, müssten die Koordinaten übereinstimmen.

Nimm doch das OnMouseDown-Ereignis:
Delphi-Quellcode:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image1.Left := X;
  Image1.Top := Y;
end;
  Mit Zitat antworten Zitat