pcplayer:
你的例子是操作页面上的元素,比如页面上的 Edit 框。如果直接把浏览器变成编辑状态,直接把浏览器当输入框呢?
[阅读: 671] 2005-12-01 06:42:12
用这个代码可以把浏览器变为编辑状态:
procedure TForm1.Button1Click(Sender: TObject);
var
HTMLDocument: IHTMLDocument2;
begin
HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
if Assigned(HTMLDocument) then
HTMLDocument.designMode:='On';
HTMLDocument.close;
end;
用以下代码可以把你输入到浏览器的文字读到:
HTMLDocument := WebBrowser2.Document as IHTMLDocument2;
WS2:=HTMLDocument.body.outerHTML;
问题是,我没法把 KEYDOWN 事件挂上去,不知道你什么时候在里面敲了键盘!