请教各位高手，如何才能使combobox中显示出本机的所有字体？就像word的字体选择一样。

Question

ComboBox1.Items := Screen.Fonts;

Answer 1

将ComboBox1的Style属性设为csOwnerDrawFixed;procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Items.Assign(Screen.Fonts);
end;procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with ComboBox1 do
  begin
    Canvas.FillRect(Rect);
    Canvas.Font.Name := Items[Index];
    Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, Items[Index]);
  end;
end;

Answer 2

EnumFontFamilies(DC, nil, @EnumFontsProc, Integer(Pointer(ComboBox1.Items)))

Answer 3

function EnumFontsProc(var LogFont: TLogFont; var TextMetric: TTextMetric;
  FontType: Integer; Data: Pointer): Integer; stdcall;
begin
  TStrings(Data).Add(LogFont.lfFaceName);
  Result := 1;
end;

Answer 4

ComboBox1.Items := Screen.Fonts;