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.