新提示风格Hint BalloonHint 气泡

时间:2023-08-07 10:46:37

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;