新提示风格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+25,
      Mouse->CursorPos.x+200,
      Mouse->CursorPos.y+50
   );
   hw = new THintWindow(Application);
   hw->Font->Style = hw->Font->Style<<fsBold;
   hw->ActivateHint(rect,"sn Hello word!");
   Sleep(2000);
   delete hw;