但鼠标移动到某控件上,将会显示文字说明 HINT属性输入显示内容 且SHOWHINT设为TRUE即可 如果想把文字显示在状上,使用下面 procedure TForm1 . AppHint(Sender : TObject); begin Statusbar1 . Panels[ 0 ] . Text := Application . Hint; end; procedure TForm1 . FormCreate(Sender : TObject); begin Application . OnHint := AppHint; end;