Text śmigający za myszką (po CAŁYM pulpicie)

Jak zrobic napis lub rysunek (jeśli da się rysunek to napis mogę narysować!) Latający za myszką??--Sebo +)
(Delphi3)

Np w zdarzeniu onmousemove (jeżeli chcesz po formie) lub przy dowolnym ruchu myszy wykorzystując np. pos. Nie pamiętam jak to szło. Wpisz to

var
uchwyt:HDC;
begin
uchwyt:=getDC(0);
Canvas.Handle:=uchwyt;
*rysujesz jak na zwykłym canvas,
*tylko musisz najpierw zadbać o to
*żeby po prejechaniu myszy w danym miejscu
*znowu pojawiło się to co było wcześniej
ReleaseDC(0,uchwyt);
end;

I możesz rysować po całym pulpicie--Pomoc i analiza źródeł wszystko czego potrzebujesz ( no i może odrobinę logicznego myślenia)

Dryobates napisał:
&gt Np w zdarzeniu onmousemove (jeżeli chcesz po formie) lub przy dowolnym ruchu myszy wykorzystując np. pos. Nie pamiętam jak to szło. Wpisz to

Ja zrobiłem Hook'a na Wm_Mousemove

&gt
&gtvar
&gtuchwyt:HDC;
&gtbegin
&gtuchwyt:=getDC(0);
&gtCanvas.Handle:=uchwyt;
&gtrysujesz jak na zwykłym canvas,
&gttylko musisz najpierw zadbać o to
&gtżeby po prejechaniu myszy w danym miejscu
&gtznowu pojawiło się to co było wcześniej No i w tym senk, że nikt mi jeszcze tego nie powiedział
&gtReleaseDC(0,uchwyt); {&lt&lt to jest chyba nie potrzebne?}
&gtend;
&gt
&gtI możesz rysować po całym pulpicie
--Sebo +)
(Delphi3)

Sebo napisał:
&gt&gtReleaseDC(0,uchwyt); {&lt&lt to jest chyba nie potrzebne?}
Potrzebne bo nie zwalniając uchwytu zajmiesz pamięć.

Jeżeli zaś chodzi o to rysowanie po ekranie to gdzieś to kiedyś robiłem, tzn. animację w stylu screenmates. Jak znajdę ten program to dam Ci znać (niestety nie wszystko zapisuję na płytki, ;( ale to powinienem gdzieś mieć)--Jest jeszcze jeden błąd ... :)