26-08-2021, 04:56 PM
(26-08-2021, 10:56 AM)Delphi4Us كتب : هل تقصد وضعه في الريسورس ومنها تثبيته في مجلد الخطوط
ام انشاء حزمة تثبيت وتثبيته في مجلد الخطوط
ام ان هناك طريقة أخرى غير ما ذكرت تستخدمونها
أظن أن الأخ يقصد استعمالها دون تثبيتها.
PHP كود :
// first load it in the OnCreate event of a form:
procedure TForm1.FormCreate(Sender: TObject);
begin
AddFontResource('c:\FONTS\MyFont.TTF');
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;
// before application terminates, we must free it:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
RemoveFontResource('C:\FONTS\MyFont.TTF');
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.


![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)