关于Hint的问题！！..急...

Question

//from Delphi Help
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    procedure FormCreate(Sender: TObject);
   private
    { Private declarations }
  public
    procedure DoShowHint(var HintStr: string; var CanShow: Boolean; 
var HintInfo: THintInfo);
  end;
var
  Form1: TForm1;
implementation{$R *.DFM}
procedure TForm1.DoShowHint(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo);
begin
  if HintInfo.HintControl = SpeedButton3 then
  begin
    with HintInfo do
    begin
      HintColor := clAqua;{ Changes only for this hint }
      HintMaxWidth := 120;{Hint text word wraps if width is greater than 120 }
      Inc(HintPos.X, SpeedButton3.Width); { Move hint to right edge }    end;
  end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.ShowHint := True;
  Application.OnShowHint := DoShowHint;
end;
end.

Answer 1

//from Delphi Demo
procedure TMainForm.FormCreate(Sender: TObject);
begin
  Application.OnHint := ShowHint;
//....
end;//....
procedure TMainForm.ShowHint(Sender: TObject);
begin
  if Length(Application.Hint) > 0 then
  begin
    StatusBar.SimplePanel := True;
    StatusBar.SimpleText := Application.Hint;
  end
  else StatusBar.SimplePanel := False;
end;
//....

Answer 2

用APPLICATIONEVENT这个控件来捕捉HINT的事件，就可以了，我试过的
OnShowHint中捕捉

Answer 3

哪用得着那么麻烦，你放一个状态栏StatusBar1　将其autohint设为真，　这一切搞定了。不信你放几个button，　把buttom 的showhint设为true, 设置buttom的hint属性为'aaaa', 运行会自动在statusbar显示出提示

Answer 4

设置控件Hint的值为  我的|这样，同时设置ShowHint为True,
设置StatusBar1的AutoHint为True,就可以在控件上方显示 "我的",
在StatusBar1的Panels[0]中显示"这样".
只能在Panels[0]中显示。

Answer 5

建议使用my_first(海浪)的方法object StatusBar1: TStatusBar
  Left = 0
  Top = 329
  Width = 536
  Height = 19
  AutoHint = True
  Panels = <>
  SimplePanel = True
end

Answer 6

当然如果你的StatusBar还有反映其他信息的话就请用我提供的方法