如何实现webbrowser中的打印、复制、全选等编辑功能(50分)

给browser发WM_COMMAND消息模拟用户选择相应菜单?
 
能不能说的详细一点?或者那里有这方面的资料?
 
1.找到当前browser窗口的handle
2.GetSystemMenu获得browser的主菜单
3.GetSubMenu获得相应子菜单
4.GetMenuItemID获得您感兴趣的menu项
5.发送WM_COMMAND消息(wparam为menuid, lparam为0)
 
不好意思,能不能给我一个具体的程序例子?
 
TWebbrowser.ExecWb(...)

OLECMDID_SELECTALL
OLECMDID_COPY
OLECMDID_print
...
 
代码如下:
procedure TForm1.Button2Click(Sender: TObject);
var a,b: OleVariant

c: longint;
begin
a:=0;
b:=0;
c := WebBrowser1.QueryStatusWB(OLECMDID_PRINT);
if c>0 then
WebBrowser1.ExecWB(OLECMDID_PRINT,
OLECMDEXECOPT_PROMPTUSER,
a, b)
else
showmessage('不能打印!');
end;
 
多人接受答案了。
 
顶部