我做个QQ风格的界面放一个COOLBAR垂直在左边,BANDS是两个TOOLBAR,我想让他们从上到下排列而不是从左到右排列,是COOLBAR哪个属性控制的,还有想做各彩色的(比如黄色)按钮(BUTTON),怎么做?还有就是鼠标从一个自定义区域移出或从控件移出的事件比如一个IMAGE或LABEL,上移出怎么判断?

解决方案 »

  1.   

    很多这样的控件:
    如:raize套件中就有,
        还有outlook bar ....很多的。
    在www.51delphi.com www.playicq.com有的下,:)
      

  2.   

    3
    鼠标移入移出消息    
      CM_MOUSEENTER 
    CM_MOUSELEAVE
    必须自己继承控件,因为这不是Windows的标准消息。在Form中声明两个函数:procedure CMMouseEnter(var msg:tmessage);message CM_MOUSEENTER;procedure CMMouseLeave(var msg:tmessage);message CM_MOUSELEAVE;实现部分如下:procedure Form.CMMouseEnter(var msg:tmessage);varobj:TObject;beginobj:=Tobject(msg.lParam);//鼠标所在的控件if obj<>nil thenbegin//确定控件的类型//你的处理end;end;procedure Form.CMMouseLeave(var msg:tmessage);varobj:TObject;beginobj:=Tobject(msg.lParam);//鼠标所在的控件if obj<>nil thenbegin//确定控件的类型//你的处理end;end;---------------------------------------procedure TForm1.cmmouseenter(var msg:tmessage);beginif msg.LParam=integer(button1) thenshowmessage('fsdkfs');end;