为什么使用 TTF_CENTERTIP 标志会使 ToolTip 气球样式恢复为 Windows XP 样式以及如何解决此问题？

Question

我注意到，在使用 TTM_ADDTOOL 将工具提示设置添加到具有 TTS_BALLOON 样式的工具提示窗口时使用 TTF_CENTERTIP 标志会导致此工具提示不以 Windows 10 样式出现。换句话说，气球显示为圆形边缘，就像 Windows XP 中气球的样式一样。

如果不使用 TTF_CENTERTIP，气球会以正确的样式显示，如上所示，但是...

使用 TTF_CENTERTIP 标志时，样式将更改为“旧样式”。问题很简单，为什么会发生这种情况以及如何根据应用程序运行的操作系统使气球始终具有最新的样式？

下面是示例代码。创建一个 Windows VCL 应用程序项目，其中主窗体称为 Form1，并在此窗体中粘贴两个名为“BUTN1”和“BUTN2”的按钮 (TButton)。完成此操作后，只需将下面的所有代码粘贴到 Form1

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls;

type
  TForm1 = class(TForm)
    BUTN1: TButton;
    BUTN2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    FHwndTip: HWND;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses
  Winapi.CommCtrl;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  TI: TToolInfo;
begin
  FHwndTip := CreateWindowEx(WS_EX_NOACTIVATE or WS_EX_TOPMOST
                            ,TOOLTIPS_CLASS
                            ,nil
                            ,TTS_ALWAYSTIP or TTS_BALLOON
                            ,0,0,0,0
                            ,Self.Handle
                            ,0
                            ,HInstance
                            ,nil);

  SendMessage(FHwndTip,TTM_SETTITLE,TTI_INFO,LPARAM(PChar('Title')));
  SendMessage(FHwndTip,TTM_SETMAXTIPWIDTH,0,300);

  ZeroMemory(@TI,SizeOf(TToolInfo));

  TI.cbSize := SizeOf(TToolInfo);
  TI.hwnd := Self.Handle;

  TI.uId := BUTN1.Handle;
  TI.lpszText := 'Lorem ipsum dolor sit amet, consectetur adipiscing elit. Quisque tincidunt dictum dui vel luctus. Duis ornare arcu a varius pharetra. Curabitur tempor sit amet dui id malesuada. Aliquam efficitur, massa consectetur tristique iaculis, dolor diam tincidunt.';
  TI.uFlags := TTF_IDISHWND or TTF_SUBCLASS;
  SendMessage(FHwndTip,TTM_ADDTOOL,0,LPARAM(@TI));

  TI.uId := BUTN2.Handle;
  TI.lpszText := 'Lorem ipsum dolor sit amet, consectetur adipiscing elit. Quisque tincidunt dictum dui vel luctus. Duis ornare arcu a varius pharetra. Curabitur tempor sit amet dui id malesuada. Aliquam efficitur, massa consectetur tristique iaculis, dolor diam tincidunt.';
  TI.uFlags := TTF_IDISHWND or TTF_SUBCLASS or TTF_CENTERTIP;
  SendMessage(FHwndTip,TTM_ADDTOOL,0,LPARAM(@TI));
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  DestroyWindow(FHwndTip);
end;

end.

Update 1

单元中。为了尝试解决此问题，我转到新的“Microsoft Stack Overflow”并在那里提出了相同的问题。就在那时，我发现问题不在于我的代码，而在于 Delphi 可能做的事情，但是什么？

https://learn.microsoft.com/en-us/answers/questions/786101/why-using-the-ttf-centertip-flag-makes-the-tooltip.html?childToView=786169

一位用户好心地帮助我尝试使用 VS 重现该问题。结果是问题没有发生。会是什么？

更新 2

另一位用户表示，他能够使用与他无法重现该问题的人相同的工具重现该问题 (VS2022)。现在事情变得更加复杂了，因为我依靠这两个人的善意来弄清楚为什么其中一个能够看到问题而另一个却不能。我很确定如果这个“细节”被发现 我将能够在 Delphi

Update 3

中应用该解决方案在多次尝试解决此问题后，我得出的结论是，这确实是 Windows API 中的一个错误。在Microsoft Q&A中一些用户的帮助下，我们发现，当使用CreateDialog函数创建窗口时，使用TTF_CENTERTIP标志使其看起来像Windows XP，但是Delphi没有使用CeateDialog，而是使用CreateWindowEx两者都创建应用程序窗口（TApplication）和主窗体。

在我的一项测试中，我显示了通常隐藏的 TApplication 窗口，我在其中放置了一个按钮，我使用 TTF_CENTERTIP 标志为该按钮创建并配置了一个工具提示窗口，在这种情况下，工具提示正确显示，即，对于使用 CreateWindowEx 创建的 TApplication 窗口有效，但对于同样使用 CreateWindowEx 创建的 TForm1 窗口则不起作用。有什么区别？？！！

我认为这可能与窗口样式有关，我将样式从 TApplication 窗口复制到 TForm1，但没有成功。

在另一次找出问题原因的尝试中，我仅使用 Windows API 函数创建了一个应用程序，因此我能够创建 2 个窗口，将工具提示放在第二个窗口中，以检查它是否与“成为某物”有关。放在第二个应用程序窗口中”，但我也没有成功。原始示例（只有一个主窗口）可以在这里找到： https://osdn.net /users/derekwildstar/pastebin/7879。

我还完成了第二个示例，使用 CreateDialog 仅使用 API 调用来重现问题。这是这个示例： https://osdn.net/users/derekwildstar/pastebin/7912

嗯，在微软的问答中，有人说他把这个问题转给了“团队”，让我们看看他们是否至少解释一下为什么会出现这种情况，如果这是正常的，那么也许在那之后我可以想出一种方法来解决 Delphi 中的问题