Hallo, kann mir jemand sagen, wie man alle Fonts, die im System gespeichert sind in einer combobox kaden kann?

Möchtest Du nur die Fontnamen, um eine Fontauswahl zu realisieren oder soll jeder Font in seiner eigenen Schriftart angezeigt werden usw.?

Eine einfache Fontauswahl wäre so möglich (BubbleSort dient nur zur Sortierung von A nach Z):

zusammenfalten · markieren

Delphi-Quellcode:

function EnumFontClBack(var lp: TEnumLogFont; var tm: TNewTextMetric; dwType: DWORD;
  lpData: lParam): Integer; stdcall;
begin
  Result := 1;
  with TForm2(lpData), Combobox1 do
  begin
    Items.Add(lp.elfLogFont.lfFaceName);
  end;
end;

procedure BubbleSort(Items: TStrings);
var
  done: boolean;
  i, n: integer;
  Dummy: string;
begin
  n := Items.Count;
  repeat
    done := true;
    for i := 0 to n - 2 do
      if Items[i] > Items[i + 1] then
      begin
        Dummy := Items[i];
        Items[i] := Items[i + 1];
        Items[i + 1] := Dummy;

        done := false;
      end;
  until done;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
EnumFontFamilies(Canvas.Handle, nil, @EnumFontClBack, Integer(Self));
BubbleSort(ComboBox1.Items);
end;

Es sollen nur die Namen der Fonts angezeigt werden.

Zitat von logo123:

Es sollen nur die Namen der Fonts angezeigt werden.

Genau dies macht der obige Code.

Danke es hat geklappt

Warum nicht so?
(Das ist dann übrigens schon sortiert!)
ComboBox1.Items := Screen.Fonts;

Warum einfach wenn's auch kompliziert geht?