覆盖标题栏按钮的工具提示文本（关闭、最大化、最小化、帮助）

Question

我一直在尝试更改表单主标题栏上的按钮显示的工具提示文本，但没有成功。

简而言之，我们利用 Windows 窗体的“帮助”按钮来实现其他目的。这工作正常。问题是，当将鼠标悬停在该按钮上时，会出现“帮助”工具提示，这对应用程序没有任何意义。

理想情况下，有某种方法可以更改我的应用程序的工具提示文本；然而，此时我只要找到一种完全禁用工具提示的方法就很满意了。

我知道您可以通过修改 regedit 中的“UserPreferencesMask”键来禁用整个操作系统的工具提示，但我真的希望有一种方法让它只影响我的应用程序。

同样，理想情况下应该有某种方法可以使用托管代码来执行此操作，但我不反对链接到 Windows API 等。

感谢您提供解决此问题的任何建议！

Answer 1

作为解决方法，您可以不使用帮助按钮，而是：添加自定义按钮。

虽然这个示例不太完美，但它向您展示了这个想法。

Answer 2

这是一个非常有趣的问题。我的第一个想法是使用 GetSysMenu 更改系统菜单。我尝试删除并重命名“关闭”项目，但“关闭”按钮的工具提示没有改变。然后我尝试捕获工具提示窗口的HWND，但没有成功。如果我让表单（我在 Delphi 中工作）显示一个名为“Test”的工具提示，我可以通过 FindWindow(nil, 'Test') 获取它的 HWND，然后我可以向它发送 WM_CLOSE 消息。

在下面的示例代码中，我使用计时器不断搜索工具提示。这对性能不利，因此人们希望确切地知道工具提示何时出现。在这种情况下，当工具提示与客户端控件关联时，可以简单地使用 OnHint 事件。

procedure TForm1.Timer1Timer(Sender: TObject);
var
  h: HWND;
begin
  h := FindWindow(nil, 'Test');
  if h <> 0 then
    SendMessage(h, WM_CLOSE, 0, 0);
end;

然而，当工具提示与标题栏按钮关联时，存在两个问题。

1. 我无法使用 FindWindow(nil, 'Close'); 获取“关闭”按钮的工具提示句柄；
2. 如果我们能够获得句柄，我们需要一个智能的地方来编写代码 - 我们不希望它在计时器中。 OnHint（在 Delphi 中 - 所有本机 Win32 应用程序中都存在类似的事件）可能仅适用于客户端控件。人们可以使用 WM_NC* 消息来推断何时显示标题栏工具提示。