这样就可以了procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnHint :=DisplayHint;
end;procedure TForm.DisplayHint(Sender: TObject);
begin
StatusBar1.SimpleText :=Application.Hint ;
end;要显示什么你在菜单的Hint属性里写
begin
Application.OnHint :=DisplayHint;
end;procedure TForm.DisplayHint(Sender: TObject);
begin
StatusBar1.SimpleText :=Application.Hint ;
end;要显示什么你在菜单的Hint属性里写
begin
StatusBar1.Panels[0].Text:= Application.Hint;
end;
再form1.oncreate中加
Application.OnHint:= ShowHint;
反正有100分,给小弟一点分吧