Memo Font?

[umutcanster]

Selamün aleyküm arkadaşlar

Kod: Tümünü seç

AddFontResource('c:\font1.TTF') ;
   SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;

yaparak form açıldığında font'u kullanabilme imkanım oluyor.

fakat örneğin memo1.de bu açtığım font'u nasıl kullanacağım ?

Kod: Tümünü seç

memo1.Font.Style:=memo1.Font.Style+[font1] //font'un dosya ismi;
memo1.Font.Style:=memo1.Font.Style+[svgfont1]; //font'un asıl ismi

ama olmuyor,yardımınıza ihtiyacım var.

teşekkürler.

[SimaWB]

Font'un ismini bilmeniz gerekir:

Kod: Tümünü seç

Memo1.Font.Name := 'Yeni font';

[umutcanster]

Teşekkürler.

çok kez bu şekilde denemiştim,
meğersem "svgfont 1" arasında boşluk varmış,boşluk koyunca düzeldi.

kolay gelsin herkese.