delphi TFontDialog

2022-06-30 15:00:00 网络 Delphi

本文整理自网络，侵删。

 设置前先获得Memo的字体属性并设置给FontDialog 然后再设置MEMO的字体属性
 
//设置Memo的字体属性
procedure TForm1.mni_FontClick(Sender: TObject);
begin
  with TFontDialog.Create(nil) do
  begin
    Font:=Memo1.Font;
    Options := [fdApplyButton];
    if Execute() then
       Memo1.Font:=Font;
  end;
end;

来源：https://www.cnblogs.com/xe2011/p/3372992.html

相关阅读 >>

Delphi xe7上启用android蓝牙

Delphi urldownloadtofile 支持进度条

Delphi动态创建控件的例子

Delphi webservices 字节数组 base64编码

Delphi 使用tarray.sort对数组排序

Delphi windows 下用 Delphi 代码杀死进程，或者杀死自己

Delphi of 打坐与普通攻击calll调用

Delphi 在目录后面加上一个 "\"

Delphi fmx listbox长按复制（移动平台）

Delphi 2009 之 tcategorypanelgroup[1]: chevronalignment 等

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