Neler yeni
Türkiye'nin En Güncel Forum Sitesi

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı yada giriş yapmalısınız. Forum üye olmak tamamen ücretsizdir.

Masaüstüne Yazı Yazdırma!

ByOnur58

Kayıtlı Üye
MFC Üyesi
  • Üyelik Tarihi
    7 Ocak 2015
  • Mesajlar
    2,113
  • MFC Puanı
    10
  • MFC Seviyesi

Kod:
Eklenicek Procedürler

Kod:
procedure TForm1.YaziYaz(Yazin: string; x,y: Integer; yazitipi: TFont);
var
  Masaustu: HWND;
  Bdc: HDC;
  Cizim: TCanvas;
begin
  Masaustu   := GetDesktopWindow;
  Bdc     := GetWindowDC(Masaustu);
  Cizim := TCanvas.Create;
  Cizim.Handle := Bdc;
  BeginPath(Cizim.Handle);
  Cizim.Font:=yazitipi;
  SetBkMode(Cizim.Handle, TRANSPARENT);
  EndPath(Cizim.Handle);
  Cizim.TextOut(x, y, Yazin);
end;
Kullanımı : 1 tane Font Dialog Ekleyip Yazı tipi ayarlarını yapin

Kod:
YaziYaz('Kod Kendi Yapımımdır Cryz4dvl4',100,150,FontDialog1.Font);
 
Üst Alt