Schrift aus Ressource nutzen

[Shubit]

Und wozu ist das LongWord dann gut?


Also meine Ressourcen Datei sieht jetzt wie folgt aus:
1 Font "D:\\fonts\\Anywhere.ttf"

und hab ich versucht mit beim FormCreate dem MyLabel die Schriftart aus der Ressource zuzuweisen:

Delphi-Quellcode:

procedure TForm1.OnCreate(Sender: TObject);
var
  lCount : pLongWord;
begin
  new(lCount);
  MyLabel.Font.Handle := LoadResFont(1,lCount);
end;

Allerdings scheint er es dann einfach auf die im Formular als Standard eingestellte Schriftart zu setzen