把控件的Hint显示在StatusBar上

在構造函數或FormCreate中:
Application->OnHint=ShowHint;

ShowHint為自定義函數:
void __fastcall ShowHint(TObject *Sender)
{
    StatusBar1->SimpleText=Application->Hint;
}