Mouse'a Yapışmış Form

FormCreate Olayına

Kod:
SetWindowLong( Handle,GWL_STYLE,GetWindowLong( Handle, GWL_STYLE )and not WS_CAPTION );
SetWindowLong(Application.Handle,GWL_EXSTYLE, WS_EX_TOOLWINDOW);
SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);

1 Timer Ekleyin Ve Intervalini 1 yapın.
OnTimer Olayına

Kod:
Left:=Mouse.CursorPos.X+10;
Top:=Mouse.CursorPos.Y+10;