我做个QQ风格的界面放一个COOLBAR垂直在左边,BANDS是两个TOOLBAR,我想让他们从上到下排列而不是从左到右排列,是COOLBAR哪个属性控制的,还有想做各彩色的(比如黄色)按钮(BUTTON),怎么做?还有就是鼠标从一个自定义区域移出或从控件移出的事件比如一个IMAGE或LABEL,上移出怎么判断?
解决方案 »
- 应聘某公司,公司用delphi开发??以前没用过咋办
- 求助!delph调用VC编写的OCX遇到的参数问题
- 初学者提问,简单问题
- 关于messagebox二次出现的问题解决?
- 关于StringGrid控件使用的问题?
- 用过RealProducer Basic8.5的prct3260.ocx控件的高手请帮忙!
- 叫fenglaile(风清飘) 的朋友,感谢你(我决定离开CSDN)
- procedure TObject.Dispatch(var Message);//asm//是什么意思
- delphi编写的com组件中接口调用问题,请高手看一下
- 哪位大虾给解决一下..不胜感激!
- 简单的控件属性问题!帮忙就给分!
- 关于在word中插入图片的问题
如:raize套件中就有,
还有outlook bar ....很多的。
在www.51delphi.com www.playicq.com有的下,:)
鼠标移入移出消息
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;