Font problemi

[jumper]

Merhaba

Programımda bazı labellar için alternatif bir font kullanmak istiyorum. Fakat programın bu fontu kendi klasöründen okumasını istiyorum. Yani fontu adres vererek kullanabiliyor muyuz? Programın açılışta fontu windows->Fonts klasörüne kopyalaması da bir çözüm ama bu son tercihim.

[delphikursu]

senin bu istediğin kod var ama şu anda internet cafeden girdiğim için şu anda yanımda yok en kısa zamanda sana ulaştırmaya çalışaçağım
eğer font dizine kopylamak istersen o daha kolay olur ve setup işleminde bu kopylamayıda yapabilirsin

[derya]

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
begin
  AddFontResource(pchar(ExtractFilePath(ParamStr(0)+'fontadı.TTF')));
  SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;


procedure TForm1.FormDestroy(Sender: TObject);
begin
  RemoveFontResource(pchar(ExtractFilePath(ParamStr(0)+'fontadı.TTF')));
  SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;

böyle birşeydi galiba...[/quote]

[jumper]

@Derya, teşekkür ederim. Bu işimi gördü