如何在statusbar中动态显示光标所在位置的提示信息（比如菜单项和按纽的text）

[btlxy]

如何在statusbar中动态显示光标所在位置的提示信息（比如菜单项和按纽的text）。

[DWGZ]

TApplicationEvents

procedure TForm1.ApplicationEvents1Hint(Sender: TObject);
begin
StatusBar.Panels[1].Text := Application.Hint;
end;

[ysycrazy]

设置好窗体上所有组件的hint属性，
procedure TForm1.FormCreate(Sender: TObject);
begin
StatusBar1.AutoHint:=true;
end;