散分！！！！！！散分！！！！！！散分！！！！！！散分！！！！！！散分！！！！！！

Question

先上段代码procedure TForm1.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate('http://www.w3school.com.cn/htmldom/event_onselect.asp');
end;procedure TForm1.Button2Click(Sender: TObject);
var
//ht,ht1 :ihtmldocument2;
ht : Olevariant;
i:Integer;begin
  ht:=webbrowser1.document as ihtmldocument2;    for i := 0 to ht.all.length - 1 do      begin
     if ht.all.item(i).tagName = 'input'  then
       if ht.all.item(i).value='Hello world!'  then     begin         ShowMessage(ht.all.item(i).value);
         ht.all.item(i).onselect;     //  ht.all.item(i).InvokeMember('onselect');   end;
    end;
 end;
end.
怎么模拟onselect事件，哪位好人指教下

Answer 1

WebBrowser1.Navigate('http://www.w3school.com.cn/htmldom/event_onselect.asp');
这不是有网址吗，双击文本或选择文本就会触发onselect事件的，我用C#可以触发，找到含有onselect事件的元素用InvokeMember(”onselect“)调用，可我用delphi7不行，

Answer 2

Delphi7的我也不知道，怎么作业。