Image dem Mousezeiger folgen

[bitsetter]

Hi,

die Komponente TApplicationEvents habe ich genommen und dort im Event onMessage folgenden Code eingefügt:

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if Msg.message= Messages.WM_MOUSEMOVE then
  begin
    Image1.Left:=Round(ScreenToClient(Mouse.CursorPos).X - Image1.Width / 2);//Image1.Picture.Graphic.Width
    Image1.Top:=Round(ScreenToClient(Mouse.CursorPos).Y - Image1.Height / 2);//Image1.Picture.Graphic.Height
  end;
end;

Dann ging es bei mir.