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 如何从dll中检索导出函数的列表

Delphi2010获取鼠标指向窗口的位置及鼠标在窗口内的相对位置坐标

Delphi 中将tmemorystream转换为'string'

Delphi 调用sql和mysql存储过程

Delphi 进程防杀之hook api法

Delphi 模拟按键的一些误解

Delphi 取键盘值

Delphi xe4 for ios 谨慎处理字符串

Delphi 7 简单语法

Delphi开机启动项管理源码

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

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