请高手指教:如何在delphi中屏蔽flash的右键菜单,而使用自定义的右键菜单呢?(50分)

  • 主题发起人 主题发起人 快乐大使
  • 开始时间 开始时间

快乐大使

Unregistered / Unconfirmed
GUEST, unregistred user!
请高手指教:如何在delphi中屏蔽flash的右键菜单,而使用自定义的右键菜单呢?
 
添加一个ApplicationEvents和Popup1

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.message = WM_RBUTTONDOWN) or (Msg.message =WM_RBUTTONDBLCLK) then
Begin
popupmenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
//Handled := True;
Msg.message:=0;
end;

就行了。。。
 
这样将所有的右键菜单都屏蔽了,能不能只屏蔽flash的菜单呢?
 
procedure Tfrmflash.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.message = WM_RBUTTONDOWN) and (msg.hwnd =ShockwaveFlash1.handle) then
begin
popupmenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y)
// popupmenu1 是你自己的那个,
Handled := True;
end;
end;
 
linsb:
问题解决了,非常感谢您!我是个新手,请多指教,handled:=true和Msg.message:=0起什么作用?
 
后退
顶部