pcplayer:
这段例子是用浏览器里的 HTML 输入框元件来输入。我现在是直接拿整个浏览器来做输入用。
[阅读: 773] 2005-12-01 04:00:43
直接拿整个浏览器来做输入框用比较过瘾:
procedure TForm1.Button1Click(Sender: TObject);
var
HTMLDocument: IHTMLDocument2;
begin
HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
if Assigned(HTMLDocument) then
HTMLDocument.designMode:='On';
HTMLDocument.close;
end;