Mega Code Archive

 

Categories / Delphi / Examples

 

Istenilen fontu programinizda windowsa install etmeden kullanmak

{ Programinizla beraber kullandiginiz font dosyasini kuracaginiz bilgisayara kopyalamaniz gereklidir. (C:\programim\fuente.ttf gibi) } procedure TForm1.FormCreate(Sender: TObject); begin AddFontResource('c:\programim\FUENTE.TTF'); SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin RemoveFontResource('c:\programim\FUENTE.TTF'); SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0); end;