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字符串深入学习

使用idhttp抓取百度和google会出错

Delphi字符串旋转任意角度

Delphi 获取网卡物理地址之内存获取方式函数源码

如何判断硬盘是fat32还是ntfs

Delphi版进程间的相互调用与参数传递

Delphi idhashmessagedigest 获取文件md5

Delphi中format与formatdatetime函数详解

Delphi 获取 设置文件时间

Delphi 把整个窗体保存为图片的方法

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

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