[求教]AddFontResource如何加入自带字体

damcool

想使用自带字体显示Label对象，但是虽然使用了AddFontResource把字体加好，但是好像用label1.font.name:='Droid Sans Fallback'来设定字体并不起作用，请教各位是否我的办法有点问题？下面是示例代码

2. procedure TfmPlatform.FormCreate(Sender: TObject);
3. var
4.     FontFile    :WideString;
5. begin
6.     FontFile:=Application.Location+'Resource\font.ttf';
7.     Error:=AddFontResourceW(LPCWSTR(FontFile));
8.     if Error=0 then
9.     ShowMessage(Application.Location+'Resource\font.ttf Font Not Installed Error:'+IntToHex(GetLastError,8));
10.     SendMessage(HWND_BroadCast,WM_FontChange,0,0);
11.     Label1.Font.Handle:='Droid Sans Fallback';
12.     Label1.Caption:='123450Hello';
13. end;

复制代码