Ich glaub wie du das machen willst klappt das nur wenn die Fonts im Windows/Fonts Verzeichnis ist
Probier mal
Delphi-Quellcode:
var
s:string;
i:integer;
begin
s := ComboBox1.Items[ComboBox1.ItemIndex];
for i := length(s) downto 0 do
begin
if s[i] = '\' then
break;
end;
Edit1.Font.Name := copy(s,i+1,length(s)
end;
Mehr weiss ich auch nicht
[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]