让菜单项显示Hint

Delphi的菜单项，就算设置了Hint，它也不会显示，因为没有ShowHint属性。
Delphi自身给出的解决方法是通过一个StatusBar来接收菜单的Hint。
但是，用过Java的Swing的人都知道，在Swing里对一个菜单设置Hint是有效的，它能够被显示出来。
那么是否Delphi也能够显示呢？本文即是给出了一种解决方案。

首先，我们先对Delphi自己的THintWindow类进行一个分析，当用户把鼠标移到TEdit或是其他的带有Hint的控件上时，将触发THintWindow类内的ActivateHint()方法，而鼠标移到菜单项上时，不论是否设置了Hint，都不会触发这个方法。因此，第一步就是要截获鼠标移入菜单的事件，其次就是手动的让Hint窗口显示出来。

我不知道鼠标移入菜单会触发什么消息，但是我知道一定与菜单有关，于是打开Messages.pas，搜一下MENU，可以在这个单元内，发现一些以WM_开头的，带有MENU的消息，稍做推测加测试即可知道，鼠标移入菜单时，触发了WM_MENUSELECT消息。

然后事情就简单了，自己覆盖一下Form的消息循环：

procedure TForm1.WndProc(var msg: TMessage);
begin
case msg.Msg of
    WM_MENUSELECT: ShowHintOnMenu(Handle, msg.WParamLo);
end;
inherited WndProc(msg);
end;

ShowHintMenu()的实现如下：

procedure TForm1.ShowHintOnMenu(h: HWND; wParam: Integer);
var
buf: array[0..255] of Char;
AHint: string;
p: TPoint;
begin
case wParam of
    0..99 :
    begin
      GetMenuString(GetMenu(h), wParam, buf, Length(buf), MF_BYPOSITION);
      if buf = EmptyStr then
        GetMenuString(GetMenu(h), wParam, buf, Length(buf), MF_BYCOMMAND);
    end;
    100..$F000 :
     begin
       GetMenuString(GetMenu(h), wParam, buf, Length(buf), MF_BYCOMMAND);
     end;
    $F001..$FFFF :
    begin
      GetMenuString(GetSystemMenu(h, False), wParam, buf, Length(buf), MF_BYCOMMAND);
    end;
end;
memo1.Lines.Add(buf);
AHint := GetMenuHintByCaption(buf, nil);
memo1.Lines.Add(AHint);
if AHint <> EmptyStr then
begin
    GetCursorPos(p);
    if ht = nil then
      ht := THintWindow.Create(nil);
    ht.ActivateHint(Rect(p.x + 10,p.y+5,p.x+200,p.y+30),AHint);
end;
end;

其中还有一个GetMenuHintByCaption()方法，实现如下：

function TForm1.GetMenuHintByCaption(ACaption: string; AMenuItem: TMenuItem): string;
var
mi: TMenuItem;
begin
Result := EmptyStr;
if AMenuItem = nil then
begin
    for mi in MainMenu1.Items do
    begin
      if mi.Caption = ACaption then
      begin
        Result := mi.Hint;
        Break;
      end;
      if Result = EmptyStr then
        if mi.Count > 0 then
          Result := GetMenuHintByCaption(ACaption, mi);
    end;
end
else
begin
    for mi in AMenuItem do
    begin
      if mi.Caption = ACaption then
      begin
        Result := mi.Hint;
        Break;
      end;
      if Result = EmptyStr then
        if mi.Count > 0 then
          Result := GetMenuHintByCaption(ACaption, mi);
    end;
end;
end;

这样，我们就能在鼠标移入菜单项时，显示出Hint了。