Delphi Mouse Takip Eden Yazı

Kategoriler

Arşiv

Pt Sa Ça Pe Cu Ct Pa
12
3456789
10111213141516
17181920212223
24252627282930

E-bülten

Haberlere abone olun:


  • email Arkadaşına gönder
  • print Yazıcı versiyonu
  • Add to your del.icio.us del.icio.us
  • Digg this story Digg this

Bu yazıyı beğendiniz mi?

(toplam 1 oy)
Yazı büyüklüğünü ayarla: Decrease font Enlarge font

image
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.

  • email Arkadaşına gönder
  • print Yazıcı versiyonu
  • Add to your del.icio.us del.icio.us
  • Digg this story Digg this

Yorum Yaz comment Yorumlar (0 Yazılmış)

Diğer Haberler

Bil-Tek.Org Bilim Teknik Teknoloji Bilgisayar Sistemleri Biyoloji Fizik Kimya Matematik Programlama Dilleri

Creative Commons License
Bazı Hakları Saklıdır.Site içeriği Creative Commons Attribution-Noncommercial-No Derivative Works 3.0 Unported License ile lisanslanmıştır.İçeriğin Bil-tek.org editörleri tarafından üretilen kısmını, değiştiremez ve ticari amaçlı kullanamazsınız.İçeriği sitelerinize yapıştırabilirsiniz.Alıntı yaptığınız içeriğin linkini bağlantı olarak, alıntının altına eklemeniz gerekmektedir.
This work is licensed under a Creative Commons Attribution-Noncommercial-No Derivative Works 3.0 Unported License.