Delphi TMenuItem的Hint不显示怎么办？（100分）

Question

http://blog.csdn.net/kygl2003/article/details/7711308

Answer 1

这个我已经试过三遍了，不知道是我太笨还是您根本就没试？Forms里面修改以后没反应，在自己的Form里面修改根本就编译不过去，ht没有这个变量都。都说了要亲测啊，您就给一个连接算什么啊？

Answer 2

利用WM_MENUSELECT消息，去创建THintWindow, THintWindow有一个Canvas属性，可以利用它做的漂亮一点
不过要另外加一个过程，就是定时几秒让hint消失,不然Hint会一直停留在在窗体上网上有例子,楼上贴的链接就可以实现。
不过它里面有一个递归过程GetMenuHintByCaption，看起来有点复杂，下面帮你重新写一个
function GetMenuHintByCaption(ACaption: string; AMenuItem: TMenuItem): string;
var
  i:integer;
begin
  for i:=0 to AMenuItem.Count-1 do
  begin
    if AMenuItem.Items[i].Caption=ACaption then
       Result:=AMenuItem.Items[i].Hint
    else if AMenuItem.Items[i].Count>0 then
       Result:=GetMenuHintByCaption(ACaption,AMenuItem.Items[i]);
  end;
end;调用
AHint:= GetMenuHintByCaption(buf,MainMenu1.Items);

Answer 3

别个贴的是主要代码，有些东西应该自己懂得去补充，怎么可能会完完全全的照搬下来就能使用的  private
    ht: THintWindow;
    procedure MenuHint(var Msg: TWMMENUSELECT); message WM_MENUSELECT;
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}function GetMenuHintByCaption(ACaption: string; AMenuItem: TMenuItem): string;
var
  i:integer;
begin
  for i:=0 to AMenuItem.Count-1 do
  begin
    if AMenuItem.Items[i].Caption=ACaption then
       Result:=AMenuItem.Items[i].Hint
    else if AMenuItem.Items[i].Count>0 then
       Result:=GetMenuHintByCaption(ACaption,AMenuItem.Items[i]);
  end;
end;procedure TForm1.MenuHint(var Msg: TWMMENUSELECT);
var
  buf:array[0..255] of Char;
  AHint:string;
  p: TPoint;
  ItemID:Word;
begin
  ItemID:= Msg.IDItem;
  case ItemID of
    0..99: begin
            GetMenuString(GetMenu(Handle), ItemID, buf, Length(buf), MF_BYPOSITION);
            if buf = EmptyStr then
               GetMenuString(GetMenu(Handle), ItemID, buf, Length(buf), MF_BYCOMMAND);
           end;
    100..$F000:GetMenuString(GetMenu(Handle), ItemID, buf, Length(buf), MF_BYCOMMAND);
    $F001..$FFFF:GetMenuString(GetSystemMenu(Handle, False), ItemID, buf, Length(buf), MF_BYCOMMAND);
  end;  AHint:=GetMenuHintByCaption(buf,MainMenu1.Items);  if AHint <> '' then
  begin
    if not Assigned(ht) then
       ht:=THintWindow.Create(self);
    GetCursorPos(p);
    ht.ActivateHint(Rect(p.x + 10,p.y+5,p.x+200,p.y+30),AHint);
  end;  inherited;
end;end.

Answer 4

请大家看好我的需求。
1.每个TMenuItem只要hint有值，那么当鼠标悬浮上去的时候就显示hint提示框。
2.当鼠标离开按钮后hint提示框消失。
3.要求hint提示框显示在鼠标旁边，或是对应按钮的旁边，而不是电脑右下角。
谢谢各位大侠们，求解答。

Answer 5

按钮的下拉菜单是TPopupMenu吧？

Answer 6

Demo: Delphi 菜单的Hint （Delphi 2007）主要代码片段：
type
  TForm1 = class(TForm)
  ...
    procedure FormCreate(Sender: TObject);
  private
    FOldWndProc: Pointer;
    FHintWindow: THintWindow;
    procedure MyWndProc(var M: TMessage);
  ...
  end;...procedure TForm1.FormCreate(Sender: TObject);
begin
  FOldWndProc := Pointer(SetWindowLong(PopupList.Window, GWL_WNDPROC,
    Longint(MakeObjectInstance(MyWndProc))));
  FHintWindow := THintWindow.Create(Self);
  FHintWindow.Color := Application.HintColor
end;procedure TForm1.MyWndProc(var M: TMessage);
var
  R: TRect;
begin
  if M.Msg = WM_ENTERIDLE then
    if M.WParam = MSGF_MENU then
      if IsWindowVisible(FHintWindow.Handle) then
        if WindowFromPoint(Mouse.CursorPos) <> M.LParam then
        begin
          M.Result := 0;
          ShowWindow(FHintWindow.Handle, SW_HIDE);
          FHintWindow.Visible := False;
          Exit
        end;
      
  CallWindowProc(FOldWndProc, PopupList.Window, M.Msg, M.WParam, M.LParam);
  if M.Msg = WM_MENUSELECT then
  begin
    if Application.Hint <> '' then
    begin
      R := FHintWindow.CalcHintRect(Width, Application.Hint, nil);
      OffsetRect(R, Mouse.CursorPos.X, Mouse.CursorPos.Y + 20);
      FHintWindow.ActivateHint(R, Application.Hint);
      SetWindowPos(FHintWindow.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE or
        SWP_NOMOVE or SWP_NOSIZE)
    end;
  end;
end;

Answer 7

....
自己封装吧Demo都跟你写了~！

Answer 8

新手不会啊。我自己也写了个类似的，不过不如您这个强大。我的必须在每个form里设置onHint=我自己的过程，我也不会封装气死了