选择project,add to project下的插入组件,插入插件,应该会自动插入其他几个文件。重载TShockwaveFlash里面的消息。dephi可以这样实现这个功能。他重载了wndproc procedure TShockwaveFlash.WndProc(var Message:TMessage); begin if not (csDesigning in ComponentState) then begin if ( Message.Msg=WM_RBUTTONDOWN ) and ( Menu=False ) then begin // Don't show de popup menu Message.Result := 0; end else inherited WndProc(Message); Exit; end; inherited WndProc(Message); end; ...
procedure TShockwaveFlash.WndProc(var Message:TMessage);
begin
if not (csDesigning in ComponentState) then begin
if ( Message.Msg=WM_RBUTTONDOWN ) and ( Menu=False ) then begin
// Don't show de popup menu
Message.Result := 0;
end else inherited WndProc(Message);
Exit;
end;
inherited WndProc(Message);
end;
...
{
if (pMsg->hWnd == flash窗口句柄)
{
return 0;
}
}但怎么得到flash窗口的句柄呢?
这样行么?