zoukankan      html  css  js  c++  java
  • 新提示风格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;
  • 相关阅读:
    oracle 的一点累积
    ZT: 网页的一些技巧
    ZT: WEB学习资料
    开源java
    倒序显示文本
    plsql使用之debug
    转 一些shell经验
    lpad rpad
    2018.8.19 2018暑假集训之maxnum
    2018.8.17 题解 2018暑假集训之编辑距离
  • 原文地址:https://www.cnblogs.com/cb168/p/4053587.html
Copyright © 2011-2022 走看看