怎样给菜单加提示(Hint)啊？

Question

我是初学者，怎样给菜单加提示，就是鼠标方上去以后，出现浮动的提示语。
请大家帮忙给一段详细的代码，谢谢大家！！

Answer 1

在属性hint中写上你想要的提示,把属性showhint设为true就行了

Answer 2

给菜单加上提示(Hint)是很好的习惯,它使得用户在运行菜单功能前可以对菜单功能有一个简略的了解.
给菜单项设置提示可用如下方法:
1.在窗体的下边加一个TStatusBar组件,用于显示菜单提示正文
2.将菜单提示的内容赋给菜单项的Hint属性
3.编写DisplayHint函数显示菜单提示
  a.DisplayHint函数
  
  Procedure TForm1.DisplayHint(Sender:Tobject);
  begin
    StatusBar1.SimpleText:=Application.Hint;
  end;
  
  b.将Procedure TForm1.DisplayHint(Sender:Tobject);加到public中4.在主窗体的OnCreate事件处理过程中将DisplayHint的名柄给TApplication的OnHint成员,如下: Procedure TForm1.FormCreate(Sender:Tobject);
 begin
   Application.OnHint:=DisplayHint;
 end;
具体怎么办就看你自己了.............
记得分点分给我哈......

Answer 3

wzg1031(0223) 你好，我用的事delphi7.0菜单有hint属性没有show hint属性阿
wsqwang884(千禧狼龟)你好，你给出的代码是在窗口的下方出现提示把

Answer 4

倒是找到show hint属性了，可是设置位true还是不显示提示阿

Answer 5

建议你第一种方法,以后熟悉delphi了可以用第2种方法......

Answer 6

lwt2xx(lwt2xx) 你好，第一种方法显示提示的时候是在下放出现的啊，我想实现那种浮动的效果，就是在鼠标指针旁边浮动出现提示，因该怎么做呢？而且是不是hint必须要配合TStatusBar组件呢？

Answer 7

回复人： ozarkgirl(刘笑) ( ) 信誉：100  2005-01-31 16:26:00  得分: 0  
 
 
   wzg1031(0223) 你好，我用的事delphi7.0菜单有hint属性没有show hint属性阿
wsqwang884(千禧狼龟)你好，你给出的代码是在窗口的下方出现提示把
  
 
。这怎么会呢？我一直有用7.0。一直都有。

Answer 8

在属性hint中写上你想要的提示,把属性showhint设为true就行了

Answer 9

1楼用 TStatusBar 组件的方法不够简单，我教你你个更简单的：TStatusBar组件属性 AutoHint=True菜单项的 Hint 设为： '编辑|编辑当前文本内容'这样，'编辑当前文本内容'就自动显示在TStatusBar 中了。

Answer 10

如果楼主对控件自身的Hint不满意，可以自己写一个frame显示hint，
在OnMouseMove事件显示出来，并根据鼠标位置定位frame，这样frame就可以跟着鼠标移动了（在控件范围内）。