delphi TFontDialog

本文整理自网络，侵删。

 
设置前先获得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 获取cpu使用单元文件

Delphi adoquery判断插入的值是否重复

Delphi �c 如何使用datasnap获取作为标头传递的标记？

Delphi判断按下的是回车键?

Delphi读写firebird二进制数据

Delphi 打开win8及以上操作系统的系统已安装程序目录

了解Delphi过程类型/过程类型学习

Delphi 获取局域网所有ip

Delphi 如何获取桌面图标方法

Delphi 字符串替换

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

转载请注明出处：木庄网络博客 » delphi TFontDialog