procedure TForm1.FormShow(Sender: TObject);
begin
 ComboBox1.Items:=Screen.Fonts; //取得Windows字型列表
end;
 

如何做字型樣式預覽？ 網海無涯，學無止境!

Hi:    Edit1.Font.Name := ComboBox1.Text;    但如果要再 ComboBox 直接可以看到，....要再試試     -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

Hi:    也可以直接使用 Dialogs 下的 FontDialog

procedure TForm1.Button17Click(Sender: TObject);
begin
    if FontDialog1.Execute then
        Button17.Font := FontDialog1.Font;
end;

至於 ComboBox，........努力中 -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

謝謝 Fishman大大 指教！    ComboBox1字型樣式預覽...可以做的跟WORD軟體一樣嗎？    網海無涯，學無止境!

http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=17197

unit FontComboBx;    interface    uses
  Windows, Messages, SysUtils, Classes, Controls, StdCtrls;    type
  TFontComboBox = class(TCustomComboBox)
  private
    { Private declarations }
  protected
    { Protected declarations }
    procedure DrawItem(Index: Integer; Rect: TRect;
      State: TOwnerDrawState); override;
    procedure CreateWnd; override;
  public
    constructor Create(AOwner: TComponent); override;        { Public declarations }
  published
    property AutoComplete default True;
    property AutoDropDown default False;
    property BevelEdges;
    property BevelInner;
    property BevelKind default bkNone;
    property BevelOuter;
    property Anchors;
    property BiDiMode;
    property CharCase;
    property Color;
    property Constraints;
    property Ctl3D;
    property DragCursor;
    property DragKind;
    property DragMode;
    property DropDownCount;
    property Enabled;
    property Font;
    property ImeMode;
    property ImeName;
    property ItemHeight;
    property ItemIndex default -1;
    property MaxLength;
    property ParentBiDiMode;
    property ParentColor;
    property ParentCtl3D;
    property ParentFont;
    property ParentShowHint;
    property PopupMenu;
    property ShowHint;
    property Sorted;
    property TabOrder;
    property TabStop;
    property Text;
    property Visible;
    property OnChange;
    property OnClick;
    property OnCloseUp;
    property OnContextPopup;
    property OnDblClick;
    property OnDragDrop;
    property OnDragOver;
    property OnDrawItem;
    property OnDropDown;
    property OnEndDock;
    property OnEndDrag;
    property OnEnter;
    property OnExit;
    property OnKeyDown;
    property OnKeyPress;
    property OnKeyUp;
    property OnSelect;
    property OnStartDock;
    property OnStartDrag;
    property Items; { Must be published after OnMeasureItem }
  end;    procedure Register;    implementation    uses Graphics, Forms;    procedure Register;
begin
  RegisterComponents('Custom', [TFontComboBox]);
end;    { TFontComboBox }    constructor TFontComboBox.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Style := csOwnerDrawVariable;
end;    procedure TFontComboBox.CreateWnd;
var
  I: Integer;
begin
  inherited;
  // Measure each item..
  Items := Screen.Fonts;
  for I := 0 to Items.Count - 1 do
  begin
    Canvas.Font.Name := Items[I];
    Canvas.Font.Size := 0;                 // use font's preferred size
    Perform(CB_SETITEMHEIGHT, I, Canvas.TextHeight(Items[I]));
  end;
end;    procedure TFontComboBox.DrawItem(Index: Integer; Rect: TRect;
  State: TOwnerDrawState);
begin
  Canvas.FillRect(Rect);
  if (Index >= 0) and (Index < Items.Count) then
  begin
    if odSelected in State then
      Canvas.Font.Color := clHighlightText;
    Canvas.Font.Name := Items[Index];
    Canvas.TextRect(Rect, Rect.Left 2, Rect.Top 2, Items[Index]);
  end;
end;    end.

--- Everything I say is a lie.

謝謝 hagar 版主  多次賜教～真感動！ < src="http://delphi.ktop.com.tw/download/upload\33223_qoo.gif">網海無涯，學無止境!