散分！！！！！！散分！！！！！！散分！！！！！！散分！！！！！！散分！！！！！！
先上段代码
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事件，哪位好人指教下
[解决办法]
楼主是只背景变蓝色的效果吗？
[解决办法]
我只是来看看
[解决办法]
接一个接一个
[解决办法]
[解决办法]
[解决办法]
Delphi7的我也不知道，怎么作业。
