编辑模式
浏览模式
设置焦点
//在使用前需要Webbrowser已经浏览过一个网页 否则错误
uses MSHTML;
///获取Webbrowser编辑模式里面的内容
procedure EditMode();
begin
(Form1.WebBrowser1.Document as
IHTMLDocument2).designMode := 'on';
end;
//------------------------------------------------------------------------------
procedure ViewMode();
begin
(Form1.WebBrowser1.Document as
IHTMLDocument2).designMode := 'off';
end;
procedure EditMode();
begin
(Form1.WebBrowser1.Document as
IHTMLDocument2).designMode := 'on';
end;
//------------------------------------------------------------------------------
procedure ViewMode();
begin
(Form1.WebBrowser1.Document as
IHTMLDocument2).designMode := 'off';
end;
//uses ActiveX;
WebBrowser1.OleObject.Document.designMode:='On';//编辑模式
WebBrowser1.OleObject.Document.designMode:='Off';//浏览模式
(Form1.WebBrowser1.Document as
IHTMLDocument2).execCommand('BrowseMode',false,1);
IHTMLDocument2).execCommand('BrowseMode',false,1);
(Form1.WebBrowser1.Document as
IHTMLDocument2).execCommand('EditMode',false,1);
IHTMLDocument2).execCommand('EditMode',false,1);
设置焦点 (当Webbrowser处于编辑模式)
TWebBrowser非常特殊，它从TWinControl继承来的SetFocus方法并不能使得它所包含的文档获得焦点
//方法1
procedure
TForm1.ToolButton1Click(Sender: TObject);
begin
if Form1.WebBrowser1.Document <> nil then
with WebBrowser1.Application as IOleobject do
DoVerb(OLEIVERB_UIACTIVATE,
nil, WebBrowser1, 0, Handle, GetClientRect());
end;
//方法2
Form1OnCreate事件无效
//OnShow可以
if WebBrowser1.Document <> nil then
IHTMLWindow2(IHTMLDocument2(WebBrowser1.Document).ParentWindow).Focus();