怎么把combobox的下拉列表设为当前电脑所存在的字体

Question

如果只是字體名稱, 可以
  combobox1.Items:=screen.Fonts;
如果以各自字體,顯示各自的字體名稱需另作處理

Answer 1

function EnumFontsProc(var LogFont: TLogFont; var TextMetric: TTextMetric;
     FontType: Integer; Data: pointer): Integer;stdcall;
  begin
    TStrings(Data).Add(LogFont.lfFaceName);
    Result := 1;
  end;
procedure TForm1.Button1Click(Sender: TObject);
 var
   DC: HDC;
  begin
     combobox1.Clear;
     DC := GetDC(0);
     EnumFonts(DC, nil, @EnumFontsProc,pointer(combobox1.items));
     ReleaseDC(0, DC);
  end;
end.