如何用ActiveXForm导出Label控件的OnMouseMove事件? 拦截wm_mousemovewm_lbuttondown,wm_rbuttondown,消息定义一个方法,再每一个方法中执行以上的过程 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 to baxp大虾: 不好意思,我是新手,能否说详细一点,可否在类型库中添加OnMouseMove事件,以便在Object Inspector中显示?? to baxp大虾: 不好意思,我是新手,能否说详细一点,可否在类型库中添加OnMouseMove事件,以便在Object Inspector中显示?? 在label的mousemove事件中postmessage 自定义的wm_usemessageprocedure wmMouseMove(var msg:tmessage);message wm_usemessage; 在label的mousemove事件中postmessage 自定义的wm_usemessageprocedure wmMouseMove(var msg:tmessage);message wm_usemessage; to baxp大虾: 加分!你的意思我不太懂,在封装过程中关于事件我有很多迷惑的地方,比如在处理Label的OnClick事件时就很好处理,只需要在其实现文件中的Create过程中加入: Label1.OnClick := ClickEvent就可以了,而OnMouseMove事件没有,需要在类型库中添加,但是类型库中没有TShift(后面还有,不记得了)类型,如果象你说的那样postmessage自定义的消息之后,使用该ActiveX控件的用户怎样使用这个事件呢??? 比如如何使该ActiveX控件如同Label控件一样会在Object Inspector中显示OnMouseMove事件???? 对不起,如果我的问题很傻,请耐心一点,非常感谢!!! 控件加入事件的具体方法 1。private fonclick : tmousemoveevent(或者是其他类型)//TMouseMoveEvent = procedure(Sender: TObject; Shift: TShiftState; //X, Y: Integer) of object; procedure move;dynamic; property onmove:tmousemoveevent read fonclick write fonclick; procedure tcontrol.click; begin if assigned(fonclick) then fonclick(self); end;就这些了 大侠:这是一般控件的事件添加方法吧!我说的是用ActiveForm做的控件!!!?????看Delphi的AxCtrls单元时,发现ActiveForm有Mouse事件,但是Object Inspector上没有显示,为什么???而且在ActiveForm中添加事件时,是在类型库中添加的,上面这段程序???不好意思,讨论一下,好吗?? ImageEn 如何把多页tiff文件分割成两个文件? 2个delphi 小问题 异地两台通过网关上网的计算机如何建立通讯? 用BDE访问数据库的程序怎么在没装delphi的机器上运行? 一个关于邮件的问题? 如何控制DBGrid的主题栏宽度? 请问Delphi中的日历? 这个问题我问了不下N边 最后还是没有一个很好的解决办法 请大家来解答 解决Code Insight快捷键冲突的安装包来了! 请问哪有完整的程序下载? 我要在程序中发一个回车命令它的字符是13我怎样在程序中具体实现 高手请看看!29分啊!(我能力的最大限度了)
procedure wmMouseMove(var msg:tmessage);message wm_usemessage;
procedure wmMouseMove(var msg:tmessage);message wm_usemessage;
比如如何使该ActiveX控件如同Label控件一样会在Object Inspector中显示OnMouseMove事件????
对不起,如果我的问题很傻,请耐心一点,非常感谢!!!
1。private
fonclick : tmousemoveevent(或者是其他类型)
//TMouseMoveEvent = procedure(Sender: TObject; Shift: TShiftState;
//X, Y: Integer) of object;
procedure move;dynamic;
property onmove:tmousemoveevent read fonclick write fonclick; procedure tcontrol.click;
begin
if assigned(fonclick) then fonclick(self);
end;
就这些了
看Delphi的AxCtrls单元时,发现ActiveForm有Mouse事件,但是Object Inspector上没有显示,为什么???
而且在ActiveForm中添加事件时,是在类型库中添加的,上面这段程序???
不好意思,讨论一下,好吗??