//这是右键单击事件: procedure TExitSwf.mymessage(var msg: tmsg; var handled: boolean); begin if Visible=false then exit;//非常重要,防止意外右键事件。 if (msg.message=wm_rbuttondown) then begin handled:=true;//屏蔽原来的swf菜单。 PopupMenu1.Popup(mouse.CursorPos.X,mouse.CursorPos.Y);//弹出你自己的菜单。 end;end;
//这是右键单击事件:
procedure TExitSwf.mymessage(var msg: tmsg; var handled: boolean);
begin
if Visible=false then exit;//非常重要,防止意外右键事件。
if (msg.message=wm_rbuttondown) then
begin
handled:=true;//屏蔽原来的swf菜单。
PopupMenu1.Popup(mouse.CursorPos.X,mouse.CursorPos.Y);//弹出你自己的菜单。
end;end;