828
社区成员
发帖
与我相关
我的任务
分享散分！！！！！！散分！！！！！！散分！！！！！！散分！！！！！！散分！！！！！！
先上段代码
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事件，哪位好人指教下
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事件，哪位好人指教下
...全文
请发表友善的回复…
发表回复
jonathanscor 2012-03-30
- 打赏
- 举报
nsgbyd 2012-03-30
- 打赏
- 举报
来逛逛也给分
我看见佛 2012-03-30
- 打赏
- 举报
接一个接一个
beican_shijie 2012-03-30
- 打赏
- 举报
我只是来看看
nsgbyd 2012-03-30
- 打赏
- 举报
WebBrowser1.Navigate('http://www.w3school.com.cn/htmldom/event_onselect.asp');
这不是有网址吗，双击文本或选择文本就会触发onselect事件的，我用C#可以触发，找到含有onselect事件的元素用InvokeMember(”onselect“)调用，可我用delphi7不行，
这不是有网址吗，双击文本或选择文本就会触发onselect事件的，我用C#可以触发，找到含有onselect事件的元素用InvokeMember(”onselect“)调用，可我用delphi7不行，
CryHunter 2012-03-30
- 打赏
- 举报
楼主是只背景变蓝色的效果吗？
Elvis_chen 2012-03-30
- 打赏
- 举报
Delphi7的我也不知道，怎么作业。
程晨c 2012-03-30
- 打赏
- 举报
