Image dem Mousezeiger folgen

[bitsetter]

Zitat von computer-glossar.de:

und wer es ganz ohne komponenten mag:

Delphi-Quellcode:

...
    WM_PAINT:
      begin
        Image1.Left := Round(ScreenToClient(Mouse.CursorPos).X - Image1.Width / 2);
        Image1.Top  := Round(ScreenToClient(Mouse.CursorPos).Y - Image1.Height / 2);
      end;
  end;
end;

Und warum änderst du jetzt die Position des Images im WM_PAINT Event, hat das einen Vorteil? IMHO wird der Code jetzt öfter als notwendig ausgeführt.