这样就可以了procedure TForm1.FormCreate(Sender: TObject); 
begin
  Application.OnHint :=DisplayHint;
end;procedure TForm.DisplayHint(Sender: TObject);
begin
  StatusBar1.SimpleText :=Application.Hint ;
end;要显示什么你在菜单的Hint属性里写