Delphi RichEdit1 设置字体

本文整理自网络，侵删。

 
procedure TForm1.Button1Click(Sender: TObject);
begin
 RichEdit1.Font.Name := ComboBox1.Text;
end;

procedure TForm1.FormCreate(Sender: TObject);

var
  i : Integer;
begin
  for i := 0 to Screen.Fonts.Count - 1 do
   ComboBox1.Items.Add(Screen.Fonts.Strings[i]);
//  ComboBox1.Items := Screen.Fonts;  // This is another way to do it.
  RichEdit1.Lines.Text := 'www.delphitop.com';

end;
 

相关阅读 >>

Delphi研究之驱动开发篇（四）--使用系统内存堆

Delphi 用文件流读取文本文件字符串的方法

Delphi adoquery连接数据库的查询、插入、删除、修改

Delphi 通过idhttp实现登录验证

Delphi 单元文件结构

Delphi 对txt文件的操作

Delphi reset 以只读方式打开文件

Delphi 检测程序有没有被dll注入的代码

Delphi获取系统默认的useragent的方法

Delphi crc算法的实现

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi RichEdit1 设置字体