Image dem Mousezeiger folgen

[Christian18]

Hier mein Code:

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Image1.Left:=Round(X - Image1.Width / 2);
  Image1.Top:=Round(Y - Image1.Height / 2);
end;