Delphi – 选单字型变小 | 老森常谭 IT Help

德尔福 – 选单字型变小

Delphi 选单似乎一直都有字型会变回预设值 (8, 塔霍马) 的问题，国外有人提问，但没有解决方式。目前我能想到的暂时解法是设定一个功能键 (可设为热键)，让 user 遇到字型变小时，自行重置字型大小。(测试过程可透过变更 Windows 显示大小百分比来让选单字型变回预设值)

procedure Tmainform.N93Click(Sender: TObject);
begin
  Screen.MenuFont.Size := 12;
  xxxxxx.BringToFront; // 改變畫面焦點，以刷新選單畫面。
end;

【參考連結】

Delphi VCL 强制菜单重绘 – 堆栈溢出
久久来一次: Delphi MainMenu 字型放大及Menu Checked 提示图示不见解决方法

发表评论