自定义的TShockwaveflash

--------------------------------------------------- -------自定义的tshockwaveflash.ocx---------------- --------------------------------------------------- --------------------------------------------------- 添加功能:对鼠标在 flash.ocx 中的信息捕获.---------- --------------------------------------------------- 可捕获鼠标信息有: 1.鼠标在控件中移动时的坐标值; 2.鼠标右击时弹出菜单的设置; 3.鼠标点击控件时移动窗体; 4.鼠标是否移入控件; --------------------------------------------------- 编写原因: 我一直在作一个flash播放器:d-flasher. 所以,要在其中捕获鼠标的一些消息. 但原 tshockwaveflash 组件没有这些方法. 只能通过:application.onmessage:=form.msgproc; 这样的并不高级的办法.所以作了这么一个东西. 对 tshockwaveflash 组件作了自定义. 在原来控件上加了对鼠标的行为的监控. 使得对 flash 控件的鼠标消息处理的效率提高了. 用起来也方便了不少. 所以共享出来.若存在什么错误,还请指正. 由于本人水平有限,也是处于学习中. 也有许多不完善的地方,欢迎大家进行修改. --------------------------------------------------- 源文件:customflash.pas.你可以对它进行编译. 源码: {---------------------------------------------------------------} {---------------自定义的tshockwaveflash.ocx---------------------} {检测:1.鼠标在控件中移动时的坐标值;2.鼠标右击时弹出菜单的设置; } { 3.鼠标点击控件时移动窗体;4.鼠标是否移入控件; } {---------------------------------------------------------------} {制作日期: 2004-8-23 [ending722] e-mail:ending722@163.com } {-----------------------------------------孤血雁工作室 杨光-----} unit customflash; interface uses sysutils,classes,controls,menus,windows,forms, messages,olectrls, shockwaveflashobjects_tlb; type tcustomflash= class(tshockwaveflash) private mposx:integer; mposy:integer; //鼠标在控件上的 x y. fpopupmenu:tpopupmenu; lmovefrm:boolean; //窗体是否可以移动 misenter:boolean; fmovefrmhwnd:tform;//接收消息的窗体 protected procedure wmmmove(var message:tmessage);message wm_mousemove; procedure wmmrdown(var message:tmessage);message wm_rbuttondown; procedure wmmenter(var message:tmessage);message cm_mouseenter; procedure wmmleave(var message:tmessage);message cm_mouseleave; public published property mouseposx:integer read mposx; property mouseposy:integer read mposy; property popupmenu:tpopupmenu read fpopupmenu write fpopupmenu; property ismovefrm:boolean read lmovefrm write lmovefrm default false; property isenterfrm:boolean read misenter default false; property movefrmname:tform read fmovefrmhwnd write fmovefrmhwnd; end; procedure register; implementation procedure register; begin registercomponents('samples', [tcustomflash]); end; //得到鼠标移动的 x,y 值. procedure tcustomflash.wmmmove(var message:tmessage); begin mposx:=message.lparamlo; mposy:=message.lparamhi; //并发送给窗体. sendmessage(fmovefrmhwnd.handle,wm_mousemove,message.wparam,message.lparam); if message.wparam=mk_lbutton then //左击,移动主窗体. if (mouse.cursorpos.y<345) and (lmovefrm) then begin // 加入 标志 判断. releasecapture; sendmessage(fmovefrmhwnd.handle,wm_syscommand,sc_move+htcaption, 0); end; //在 mousemove 时判断left是否按下, inherited; //比检测 wm_lbuttondown 效果要好的多. end; procedure tcustomflash.wmmrdown(var message:tmessage); begin if assigned(fpopupmenu) then //右击,弹出菜单. fpopupmenu.popup(mouse.cursorpos.x,mouse.cursorpos.y); end; //鼠标进入 flash.ocx procedure tcustomflash.wmmenter(var message:tmessage); begin misenter:=true; end; //鼠标移出 flash.ocx procedure tcustomflash.wmmleave(var message:tmessage); begin misenter:=false; end; end. --------------------------------------------------- 编写语言及环境: delphi7+windows2k+sp4 完成日期: 2004-8-23 --------------------------------------------------- e-mail:ending722@163.com ending722@yahoo.com.cn qq:154041260 --------------------------------------------------