fenster das die maus verfolgt

[any_key]

aloah
ich bin gerade mal auf die idee gekommen was zu programmieren in dem das fenster die maus verfolgt
so hab ich dann auch mal ausprobiert:

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
var Pos: TPoint;
begin
  Form1.Left:=Pos.X;
  Form1.Top:=Pos.Y;
end;

aber wenn ich das programm jetzt starte verschwindet das fenster einfach nach ablauf des timers
kann mir da wohl wer helfen?

[Dax]

Füge ein

Delphi-Quellcode:

Pos := Mouse.CursorPos;

ein.

[any_key]

ah danke...
hab noch ne andere möglichkeit gefunden

Code:

GetCursorPos(Pos);

[SirThornberry]

Mouse.GetCursorPos ruft intern die funktion GetCursorPos auf