delphi中，如何实现webbrowser的onmousedown。

Question

本帖最后由 lijie455 于 2012-02-26 11:48:02 编辑

Answer 1

WebBrowser1.OleObject.document.parentWindow.clearInitContent(); //执行函数。

Answer 2

楼上的方法实测无效。不过自己解决了。Wb1.OleObject.document.getElementByID('content').onmousedown; 

Answer 3

var
    i:integer;
    t:OleVariant;
begin
    t   :=   WebBrowser1.Document;
    for   i   :=   0   to   t.all.length   -   1   do
    begin
        if   t.all.item(i).tagname   =   'INPUT'   then
        begin
            if   t.all.item(i).name   =   'Submit'     then
            begin
              if t.all.item(i).value = '提交' then
              begin
                t.all.item(i).click;
                exit;
              end;
            end;
        end;
    end;
end;  //这个遍历的模拟式提交例子，其它控件改对应的值。至于还有其它么，我手上现在没有了，另外我也只是属于用什么找什么的人。