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操作access

Delphi2010下安装控件Delphi

Delphi timer定时器使用

Delphi winapi: getparent - 获取指定窗口的父窗口句柄

Delphi 2009 泛型容器单元(generics.collections)[5]: tobject...<t> 系列

Delphi 调用单元unit代码

Delphi copyfileprogressbar 拷贝文件显示进度条

Delphi tstringlist indexof find 查找字符串

Delphi android 程序名称在哪里设置？

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

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