当鼠标移到菜单上时，怎样在状态栏显示说明文字

Question

当鼠标移到菜单上时，怎样在状态栏显示说明文字

Answer 1

HINT属性把SHOWHINT设为TRUE就可以了。。

Answer 2

楼上的没看清楚问题  LZ说是 状态栏提示  不是hint 提示
……偶愚笨，试不出来

Answer 3

启用鼠标事件，当onMouse时，在状态栏中显示。

Answer 4

procedure TfrmMain.AppHint(Sender: TObject);
begin
  stbMain.Panels[0].Text:=Application.Hint;
end;procedure TfrmMain.FormCreate(Sender: TObject);
begin
  Application.OnHint:=AppHint;
end;

Answer 5

状态栏？？如果不是hint.你可以在onmouseenter时候写事件。当然这样是直接显示的。

Answer 6

启用BeginMenuLoop循环，然后将菜单的Hint给Statusbar的simpletext

Answer 7

StatusBar1.AutoHint := true;

Answer 8

procedure TForm1.AppHint(Sender: TObject);
begin
  Statusbar1.Panels[0].Text:=Application.Hint;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnHint:=AppHint;
end;

Answer 9

StatusBar1.AutoHint := true;
也可以