delphiturkden alıntıdır



FORMA BİR TİMER BİR LABEL EKLEYİN.
FORMU TRASPARANT YAPIN
LABEL FORMUN EN SOL VE ENUST KOŞESİNDE OLSUN AYRICA LABELIN YAZI BOYUTUNU BUYULTUN.
VE LABEL CAPTİONA DİLEDİĞİNİZİ YAZIN. İKİNCİ BİR TİMER EKLEYEREK YAZIYI DEĞİŞKEN YAPABİLİRSİNİZ YADA YANIP SONEN YAZI YAPABİLİRSNİZ. BEN İKİNCİ TİMERA SİSTEM TARİHİNİ ZAMANINI EKLEDİM. MOUSE NERDE TARİH ORDA KOLAY GELSİN.


procedure TForm1.Timer1Timer(Sender: TObject);
var
m:tmouse;
begin
m:=tmouse.create;
form1.Left:=m.CursorPos.x;
form1.top:=m.CursorPos.y;
m.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
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);
end;

end.
__________________