在swflash.ocx控件中没有关于鼠标的事件!我现在想自己制作它的右键菜单!
请问各位大侠有什么方法吗?
请问各位大侠有什么方法吗?
解决方案 »
- Tchart图形显示问题
- 两个应用程序之间怎么共享一个全局队列啊?(在线等)
- 用TClientsocket 和 Tserversocket写的一个聊天室的程序为什么好象不能通过防火墙和路由器?
- IdTCPClient和IdTCPServer 发送字符的时候为什么不能超过 string[255] ??
- 使用TIdTcpServer和TIdTcpClient的问题.请各位帮忙.
- 急!!打印图形问题
- from1怎么让 from2显示出来
- vista home premium 的问题
- 呜呜!,学习Delphi 的兴趣还能维持多久........
- ****为什么?:事务处理有些情况下好用,而有些情况下有问题?????
- Delphi中如何添加一个日期型的参数?
- 一个简单问题,但需要帮助!
加个PopupMenu上去,再设置一下!
application.onmessage:=mymessage;
PUBLISH中:
procedure mymessage(var msg:tmsg;var handled:boolean);
实现:
procedure tform1.mymessage(var msg:tmsg;var handled:boolean);
begin
if (msg.message=wm_rbuttondown) and (msg.hwnd=flash.handle) then
begin
handled:=true;
popupmenu1.popup(mouse.cursorpos.x,mouse.cursorpos.y)
//在这里加入你自己的菜单
end;
end;