新提示风格Hint BalloonHint 气泡

Hint BalloonHint1新风格的提示，好看漂亮，对其他控件都起作用，TCSpinButton却不起作用XE7里也不行？？Hint

	for (int i = 0; i < this->ComponentCount; i++)

	{

		if (this->Components[i]->ClassNameIs("TCSpinButton"))

			((TCSpinButton*) Components[i])->CustomHint = BalloonHint1;

	}

Button1.CustomHint := BalloonHint1;
Button1.ShowHint := True;

BalloonHint1.Title：='提示';

BalloonHint1.Description:='从当前行打印';

BalloonHint1->HideAfter = 2000;

BalloonHint.ShowHint(Pos);

任务栏的提示

__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
    TrayIcon1->ShowBalloonHint();
    TrayIcon1->Animate = true;
    TrayIcon1->BalloonFlags = bfInfo;
    TrayIcon1->BalloonHint = "program starting";
    TrayIcon1->BalloonTimeout = 1000;
    TrayIcon1->BalloonTitle = "title";
    TrayIcon1->Hint = "This is the hint";
    // TrayIcon1->Icons = ImageList1;
    TrayIcon1->Visible = true;

}

自动提示，才知道

StatusBar1控件

AutoHint=true,SimplePanel=true

然后写下面代码，会自动出来提示的

Application.Hint := 'Reading file...';
Sleep(500);

THintWindow

   THintWindow *hw;

   TRect rect(

      Mouse->CursorPos.x,

      Mouse->CursorPos.y+,

      Mouse->CursorPos.x+,

      Mouse->CursorPos.y+

   );

   hw = new THintWindow(Application);

   hw->Font->Style = hw->Font->Style<<fsBold;

   hw->ActivateHint(rect,"sn Hello word!");

   Sleep();

   delete hw;