鼠标移到按钮上有hint属性字符显示,能不能让程序控制hint的显示,起到和鼠标移到上面相同的效果。

解决方案 »

  1.   

    可以哦,以下是大致代码:
    Var
    Myhint:THintWindow;
    Begin
    Myhint:=THintWindow.Create(Self);
    Myhint.Parent:=Self;
    Myhint.Caption:='asdfsdfsdfgh';//hint的文字
    Myhint.Left:=100;//hint的位置
    Myhint.Top:=200;//hint的位置
    Myhint.Show;//显示
    Sleep(100);//停留,sleep在主线程界面会死,可以放到辅助线程
    Myhint.Hide;//关闭
    MyHint.Free;
    end
      

  2.   

    好的成功后给!我有100多个按钮,都得这么写吗?是这样的,这些按钮对应一系列数组,我只想对应数为1的时候该HINT 显示,可同时几个显示的
      

  3.   

    "这些按钮对应一系列数组,我只想对应数为1的时候该HINT 显示,可同时几个显示的"
    什么意思?说清楚一点
      

  4.   

    可以自己去定制一个按钮控件嘛.
    具有hint属性的不就行了. 
      

  5.   

    是这样的,就是一排指示灯,为1时亮我想在灯亮时,让指示灯的HINT显示出来
      

  6.   

    作弊专家的意见不全对。就如zzy所提的一样,如果有一百个,那得为每个都写一个自己的hintwindow吗?
    做一个全局的hintwindow其实是简单的,只要在你的application开始的时候为一个全局变量hintwindowclass指定你自定义的类类型就可以了。
      

  7.   

    当窗体显示时根据数组的值来设置按钮的 ShowHint 属性(用一个过程);如数组的值发生改变,再调用一次这个过程。
      

  8.   

    哦,你是要这样啊.写个函数或是BigBen(江南草)的方法都行,这个就不是属于问别人的问题了,这是看你自己觉得怎么处理好了
      

  9.   

    谢谢了,这些按纽的HINT还各不相同
      

  10.   

    to 作弊专家:
               你的HINT程序 光显示一个黄条,没字符
    江南草:具体点好吗?
      

  11.   

    to 作弊专家:
              你的HINT程序 光显示一个黄条,没字符
    江南草:具体点好吗?   
      

  12.   

    tapplication对象有一个onshowhint事件,仔细看看帮助,您会如愿的。
      

  13.   

    用LMD的组件岂不是更简单
    想怎么都行
      

  14.   

    to zhangzzy99(ZZY):你如果没有给Myhint.Caption赋值,哪来的字?我可以正常显示的.
    iBear(大熊)的方法不行的, 必须在显示Hint时,才能触发OnShowHint!那还叫什么程序控制?zhangzzy99(ZZY),我还是不太清楚你的意思,是要100个Button显示一个Hint还是每个Button一个hint?如果是每个button一个hint,同时显示出来,是Hint内容一样还是不一样?
      

  15.   

    我给HINT的CAPTION值了,但没有字
    不同的BUTTON有不同的HINT,每个的显示根据每个BUTTON的情况来控制是否显示,HINT不一样
    QQ:28993758
      

  16.   

    没有鼠标,要hint干什么?
    你又是想什么时候要呢?
    很简单,你可以自己定制一个button模版,然后加一个hinttext属性(或者不加),再加一个showmyhint的方法,不就可以了?
    什么时候调用这个方法不随便你?
      

  17.   

    to 作弊专家:
              你的HINT程序 光显示一个黄条,没字符,加了CAPTION,CAPTION只和黄条长度有关。就没显示。
      

  18.   

    to 作弊专家:
              你的HINT程序 光显示一个黄条,没字符,加了CAPTION,CAPTION只和黄条长度有关。就没显示