如何在 Delphi 中设置默认窗体字体

cnh2zyt3 于 2023-06-22 发布在其他

关注(0)|答案(1)|浏览(197)

刚刚安装了 Delphi 11（Alexandria），并开始将我们的项目转换为它（从10.4开始，我们试图保持最新）。我很惊讶地看到，我们的像素完美（而且相当拥挤）的数据输入表单有几十个TDBEdit的形状。
经过简短的研究，我发现在其他变化中，“对于VCL应用程序，默认字体现在是Segoe UI，9 pt。我们的表格是为“Tahoma，8 pt”设计的，这是以前的默认字体。在运行时，我可以通过在应用程序开始时修改Application.DefaultFont来修复它，但是当字体比表单设计的要大时，我们就不能在表单上做开发工作。
我们所有的表单都使用ParentFont = True设置，所以我想更改表单设计器的默认字体。对于旧的 Delphi 版本，有一个注册表设置来控制它，如https://suretalent.blogspot.com/2011/07/how-to-set-default-form-font-delphi.html所示
我做了上面提到的URL的变化，没有运气。有没有一个设置我可以使用这个？

delphi

来源：https://stackoverflow.com/questions/70836208/how-to-set-default-form-font-in-delphi-alexandria

1条答案

按热度按时间

lyr7nygr1#

在某个单位（例如。设计时编辑器）：

type
  TMyFormCustomModule = class(TCustomModule)

constructor TMyFormCustomModule.Create(ARoot: TComponent; const ADesigner: IDesigner);
begin
    if Application.DefaultFont.Name = 'Segoe UI' then begin
      Application.DefaultFont.Name := ' Tahoma';
      Application.DefaultFont.Height := -11;
    end;
end;

在设计时包寄存器中：

RegisterCustomModule(TForm, TMyFormCustomModule);

赞(0）回复(0）举报 2023-06-22

我来回答

如何在 Delphi 中设置默认窗体字体

1条答案

相关问题

热门标签

最新问答