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伪造session

Delphi真正实现延时暂停功能

Delphi dateutils功能详解

Delphi 调用批处理

winapi 字符及字符串函数(8): ischarupper - 是否是个大写字母

Delphi-基础（for循环）

Delphi 学习使用资源文件 - 字符串资源

Delphi 将strings合并成一个逗号分隔的字符串,用于sql

Delphi xe5 程序中标识win max android ios程序代码分别实现

Delphi中实现控件的拖拽

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

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