Mouse'a Yapışmış Form
FormCreate Olayına
Kod:
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;
FormCreate Olayına
Kod:
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;