Ja es gibt hier schon einige Threads für das Problem.
Und das Ergebnis ist dies
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject) ;
begin
AddFontResource('c:\FONTS\MyFont.TTF') ;
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
end;
procedure TForm1.FormDestroy(Sender: TObject; var Action: TCloseAction) ;
begin
RemoveFontResource('C:\FONTS\MyFont.TTF') ;
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
end;
Nur wenn das jeder empfiehlt warum stürzt meine Anwendung dann hier ab ?
GdipCheck(GdipCreateFontFamilyFromName(UseFont, nil, Fam));
Wo liegt das Problem?
gruss