Delphi中WebBbrowser应用

Oleobject do 　　　　　DoVerb(OLEIVERB_UIACTIVATE, nil, WebBrowser1, 0, Handle, GetClientRect); 　　end; 　　除此之外，我还找到一种更简单的方法，这里一并列出： 　　if WebBrowser1.Document <> nil then 　　　IHTMLWindow2(IHTMLDocument2(WebBrowser1.Document).ParentWindow).focus 　　刚找到了更简单的方法，也许是最简单的： 　　if WebBrowser1.Document <> nil then 　　　IHTMLWindow4(WebBrowser1.Document).focus 　　还有，需要判断文档是否获得焦点这样来做： 　　if IHTMLWindow4(WebBrowser1.Document).hasfocus then • 打印、打印预览和页面设置：　调用“打印”、“打印预览”和“页面设置”对话框（IE5.5及以上版本才支持打印预览，故实现应该检查此命令是否可用）。 ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT, EmptyParam, 　　　　　　　　　　　EmptyParam); 　　　　　　if QueryStatusWB(OLECMDID_PRINTPREVIEW)=3 then 　　　　　　　ExecWB(OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT, 　　　　　　　　　　　EmptyParam,EmptyParam); 　　　　　　ExecWB(OLECMDID_PAGESETUP, OLECMDEXECOPT_DODEFAULT, EmptyParam, 　　　　　　　　　　　EmptyParam); • 剪切、复制、粘贴、全选：　功能无须多说，需要注意的是：剪切和粘贴不仅对编辑框文字，而且对网页上的非编辑框文字同样有效，用得好的话，也许可以做出功能特殊的东东。获得其命令使能状态和执行命令的方法有两种（以复制为例，剪切、粘贴和全选分别将各自的关键字替换即可，分别为CUT,PASTE和SELECTALL）： 　　　A、用TWebBrowser的QueryStatusWB方法。 　　　　　if(QueryStatusWB(OLECMDID_COPY)=OLECMDF_ENABLED) or 　　　　　　OLECMDF_SUPPORTED) then 　　　　　　ExecWB(OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT, EmptyParam, 　　　　　　　　　　　EmptyParam); 　　　B、用IHTMLDocument2的QueryCommandEnabled方法。 　　　　　var 　　　　　　Doc: IHTMLDocument2; 　　　　　begin 　　　　　　Doc :=WebBrowser1.Document as IHTMLDocument2; 　　　　　　if Doc.QueryCommandEnabled(‘Copy‘) then 　　　　　　　Doc.ExecCommand(‘Copy‘,false,EmptyParam); 　　　　　end; • 字体大小 　　类似“字体”菜单上的从“最大”到“最小”五项（对应整数0～4，Largest等假设为五个菜单项的名字，Tag 属性分别设为0～4）。 　　　A、读取当前页面字体大小。 　　　　　var 　　　　　　t: OleVariant; 　　　　　Begin 　　　　　　WebBrowser1.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, 　　　　　　　EmptyParam,t); 　　　　　　case t of 　　　　　　4: Largest.Checked :=true; 　　　　　　3: Larger.Checked :=true; 　　　　　　2: Middle.Checked :=true; 　　　　　　1: Small.Checked :=true; 　　　　　　0: Smallest.Checked :=true; 　　　　　　end; 　　　　　end; 　　　B、设置页面字体大小。 　　　　　Largest.Checked :=false; 　　　　　Larger.Checked :=false; 　　　　　Middle.Checked :=false; 　　　　　Small.Checked :=false; 　　　　　Smallest.Checked :=false; 　　　　　TMenuItem(Sender).Checked :=true; 　　　　　t :=TMenuItem(Sender).Tag; 　　　　　WebBrowser1.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, 　　　　　　t,t); • 添加到收藏夹和整理收藏夹 　　　　 const 　　　　　CLSID_ShellUIHelper: TG