delphi TWebBrowser 设置焦点

设置焦点 (当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事件无效

if WebBrowser1.Document <> nil then

IHTMLWindow2(IHTMLDocument2(WebBrowser1.Document).ParentWindow).Focus();

推荐分享