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);