L laohe Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-03 #1 请问如何让panle透明,我想在FLASH控件上加MouseDown事件,想让透明的panle放在FLASH控件的上面 这样有MouseDown了,不知大侠有没有其它方面
M menxin Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-03 #2 呵呵,用不着。你在flash里让按钮动作对应相关的FSCommand,在delphi里就能控制了,OCX 中有ONFSCommand事件,你可以用command args两个参数进行控制
L laohe Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-03 #3 老大,因为我是想用MouseDown也设置FLASH控件在FORM1上面任意移动,不是用这个事件 打开什么动作,是移动控件;同时又要保证FLASH动画的播放, Panle设置移动简单,所以才想到用透明的panle,这样放在FLASH上面,就可以控制了
老大,因为我是想用MouseDown也设置FLASH控件在FORM1上面任意移动,不是用这个事件 打开什么动作,是移动控件;同时又要保证FLASH动画的播放, Panle设置移动简单,所以才想到用透明的panle,这样放在FLASH上面,就可以控制了
M menxin Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-03 #4 加在app;ication的ONmessage里最简单 procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); begin if (Msg.hwnd=ShockwaveFlash1.Handle)and(Msg.message=wm_Lbuttondown) then begin ReleaseCapture; ShockwaveFlash1.Perform(WM_SYSCOMMAND,$f012,0) end; end; 下次你就直接提问就行了,省得绕这么大弯子。 ;-)
加在app;ication的ONmessage里最简单 procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); begin if (Msg.hwnd=ShockwaveFlash1.Handle)and(Msg.message=wm_Lbuttondown) then begin ReleaseCapture; ShockwaveFlash1.Perform(WM_SYSCOMMAND,$f012,0) end; end; 下次你就直接提问就行了,省得绕这么大弯子。 ;-)