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的idhttp报508 loop detected错误的原因

Delphi xe tparallel.for的用法

Delphi 的webbrowser如何全选并复制浏览器上的文字

Delphi 图像识别技术（逐行扫描识别)

Delphi android 保持唤醒状态

Delphi 将文件转换成base64编码

Delphi里的compile和build都能产生可执行文件，有什么区别啊？

Delphi简单的播放声音

Delphi多线程文件搜索

Delphi 全局键盘钩子(wh_keyboard)

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

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