Delphi Mouse Takip Eden Yazı

Forma bir timer bİr label ekleyin. Formu trasparant yapin label formun en sol ve enüst köşesinde olsun ayrica labelin yazi boyutunu büyültün. ve label captİona dilediğinİzi yazin. İkİnci bİr timer ekleyerek yaziyi değişken yapabilirsİniz yada yanip sönen yazi yapabilirsniz. ben İkinci timera sistem tarihini zamanini ekledim. Mouse nerde tarih orda.


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.