网页素材: 导航菜单选项卡滑动门焦点图图片切换下拉菜单弹出层Tabs链接提示

您的当前位置: 源码爱好者 » 网页制作教程(编程教程) » Delphi技术教程

枚举获取系统字体 Delphi代码

  • 标签:枚举字体 更新时间:2014-07-22
  • Delphi枚举显示系统所有的字体,包括系统自带的或你自己安装的字体,通过combox可查看到所有的字体信息,选择这些信息后可在主窗体中显示对应字体名称,一个小例子,delphi列举系统字体:

    unit Unit1;
    interface
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      StdCtrls, ComCtrls;
    type
      TForm1 = class(TForm)
        ComboBox1: TComboBox;
        RichEdit1: TRichEdit;
        procedure FormCreate(Sender: TObject);
        procedure ComboBox1Change(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    var
      Form1: TForm1;
    implementation
    {$R *.DFM}
    procedure TForm1.FormCreate(Sender: TObject);
    begin
            // 向组合框中添加系统中已经安装的字体名称
            ComboBox1.Items := Screen.Fonts;
    end;
    procedure TForm1.ComboBox1Change(Sender: TObject);
    begin
            // 改变R i c h E d i t组件中文字的字体
            RichEdit1.Font.Name := Combobox1.Items[Combobox1.ItemIndex];
    end;
    end.

     

  • 已读: 次 收藏本文关闭本文打印本文复制链接
处理 SSI 文件时出错