为什么我无法在启用主题的 Delphi 7 中的 TSpeedButtons 上设置字体？

Question

发生了非常奇怪的事情：

我有一大堆 TFrame（可能是 TCustomFrame，不记得了，因为我在 40 个奇数帧和父级之间创建了一个中间类），我继承了它们来构成 '非常酷的 HL7 公式编辑器。奇怪但不是重点的是，框架上的 DFM 不断向 DFM 添加 OldCreateOrder、PixelsPerInch 和 TextHeight，即使我从未在基类中实现这些属性。

不管怎样，即使我不想，我也必须将这些属性放入我的子类中，否则它不会让我编译，所以很好。然后我将其中一个颜色选择器控件添加到我的一个框架中，直到上周它才开始给我带来无法找到父级的麻烦。

所以...我摆脱了所有 DFM，将所有框架更改为面板，它工作正常（在我的计算机上，在没有主题的 VM 中运行 XP），但是对于我左边的同事对我来说（本地运行 Windows 7），我在这些面板上使用 TSpeedButtons 做什么并不重要，它们总是具有相同的 Sans 10pt Bold 字体，这可以工作，但我有一些用于设置操作的奇怪符号，我'我想保留，但 CalcTextWidth 完全失败。

我试过：

• ParentFont := true and false;
• Flat := true and false;
• Parent.Font := What;

就足够了说吧，我已经尝试了所有的老招数。唯一有效的就是删除 XP Manifest（我是否提到过这是 Delphi 7）。这不是一个选择，因为今年的某个时候我们会将所有内容移植到 D2009，而那......不会是一个选择！

编辑

真正奇怪的是，使用 TFrame 和 DFM，它可以工作（即使使用古老的编译器）。使用 TPanel 不起作用。

TPanel（或 TCustomPanel，两者都不起作用）上的主题与 TFrame 上的主题之间肯定存在一些差异。

另外，我在按钮和 TPanel 之间有一个 TGroupBox。也许这就是问题所在。我可以很容易地改变这一点。

编辑2

使用按钮、extctrls、stdctrls

（对于Delphi 7，将XPManifest放在表单上）

procedure TForm1.FormCreate(Sender: TObject);
var
  Panel : TPanel;
  Grp : TGroupBox;
  Btn : TSpeedButton;
begin
  Panel := TPanel.Create(Self);
  Panel.Parent := self;
  Panel.Align := alClient;

  Grp := TGroupBox.Create(Panel);
  Grp.Parent := Panel;
  Grp.Align := alClient;

  Btn := TSpeedButton.Create(Grp);
  Btn.Parent := Grp;

  Btn.Width := 117;
  Btn.Font.Name := 'Symbol';
  Btn.Caption := 'Here is some text';


end;

在Windows XP中很好，在2008 Server R2上尝试过，只显示粗体无字体。

我在没有中间组框的情况下尝试了这个，但它似乎有效。

（用框架来做，但是代码太多，无法发布）

Answer 1

Delphi 7 于 2002 年 8 月发布。Vista 于 2007 年发布，Windows 7 于 2009 年发布。我认为期望 2002 年的编译器和开发系统能够与 Vista/7 中的所有新功能一起工作有点太令人期待了。升级后您可能会看到一切正常。

当然，升级编译器，尤其是大型应用程序的编译器，绝非易事。

我确实同情你，但我不会称其为 VCL 中的错误。

Answer 2

我先尝试为你回答这个问题：

有什么奇怪的，但不是重点，
是框架上的 DFM 保持开启状态
添加 OldCreateOrder、PixelsPerInch
和 TextHeight 到 DFM，即使
我从未实现过这些属性
在基类中。

这可能与

Frame 继承有关

1. （您的 DFM 文件包含错误的关键字：object 而不是 inherited，请参阅 此博客文章)

2. 您的 .DPR 文件，其中 Frame 单元后面的注释是错误的（ comment 实际上不是注释，它是 Delphi IDE 的一个提示，告诉它需要选择哪个框架、表单或数据模块设计器）

让我们知道这是否有帮助；然后重点关注TSpeedButton问题。

——杰罗恩

Answer 3

好的，这是有效的答案：

groupbox.ParentBackground := false

不确定为什么组框的背景会改变速度按钮的前景。

Answer 4

好吧，我会写一个我自己的问题的答案，因为今天的答案不是升级。

只需重写 TSpeedButton 中的 Paint 函数即可，无论如何您都不会在表单上使用它。

然后，当您最终将所有 1200 万行代码更新到 D2009 时，如果问题再次出现，那么如果您不想要子类 TSpeedButton，则可以将该代码保留为那些奇特的帮助器类函数之一。