设置前先获得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;

最新文章

  1. 批处理bat 命令
  2. BigDecimal 处理集合
  3. Android6.0动态权限申请
  4. JS中的进制转换以及作用
  5. Jquery,javascript 的处理机制
  6. linux 系统下开机自动启动oracle 监听和实例 （亲测有效）
  7. HackerRank Ice Cream Parlor
  8. KVC与KVO的进阶使用
  9. spring-security用户权限认证框架
  10. 最长回文 hdu3068（神代码）
  11. 重要经验五：block作为属性的注意事项
  12. WEB前端学习代码片段记录
  13. python转义符
  14. java.lang.OutOfMemoryError: PermGen space （jvm内存泄漏解决办法）
  15. Hibernate关系映射时出现的问题
  16. vue+axios如何操作数据交互
  17. 【Linux】CentOS7 安装rabbitmq
  18. vivado 连接不上板子 There is no current hw_target
  19. css 兼容性问题，整理
  20. 电商系统架构总结2（Redis）

热门文章

  1. nginx服务器,php-fpm重启
  2. Apache 多站点（虚拟主机）
  3. 序列化魔术函数__sleep()和反序列化魔术函数__wakeup()
  4. python cookielib
  5. mongoengine教程1
  6. iOS: 布局可视化语法 Visual Format Syntax
  7. python第一次上机遇到的困难
  8. iOS性能优化
  9. mysql update from 子查询
  10. ld: symbol dyld_stub_binding_helper not found, normally in crt1.o/dylib1.o/bundle1.o for architecture i386