procedure Tfrmain.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.message = WM_RBUTTONDOWN) and (msg.hwnd =flash_play.handle) then
begin popupmenu4.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
// 这个POPUMENU1就是你自己加上去的什么鼠标右键了
Handled := True;
// flash_play.Refresh;
//application.ProcessMessages;
end;end;在Formcreat事件中加入
application.onmessage:=ApplicationEvents1Message
var Handled: Boolean);
begin
if (Msg.message = WM_RBUTTONDOWN) and (msg.hwnd =flash_play.handle) then
begin popupmenu4.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
// 这个POPUMENU1就是你自己加上去的什么鼠标右键了
Handled := True;
// flash_play.Refresh;
//application.ProcessMessages;
end;end;在Formcreat事件中加入
application.onmessage:=ApplicationEvents1Message
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货