你这样做将会把整个应用程序的右键都会屏蔽掉这样改一下!
procedure Tfrmsplash.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.message = WM_RBUTTONDOWN) and (msg.hwnd =shockwaveflash.handle) then
begin
popupmenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
// 这个POPUMENU1就是你自己加上去的什么鼠标右键了
Handled := True;
end;
其实是屏蔽鼠标左键了。加一个ApplicationEvents构件。然后
procedure Tfrmsplash.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if Msg.message = WM_RBUTTONDOWN then
begin
popupmenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
// 这个POPUMENU1就是你自己加上去的什么鼠标右键了
Handled := True;
end;