读书人

【特急】还是关于Twebbrowser的有关问

发布时间: 2012-02-07 17:45:36 作者: rapoo

【特急】还是关于Twebbrowser的问题,下拉菜单要如何选择?
关于网页的下拉菜单,在twebbrowser中如何去选择啊?

[解决办法]
procedure TForm1.FormCreate(Sender: TObject);
begin
EmbeddedWB1.Navigate( 'C:\Documents and Settings\Administrator\桌面\index.htm ');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
doc: OleVariant;
i,j:integer;
begin
doc:=EmbeddedWB1.document;
for i:=0 To doc.all.length-1 do
begin
if (doc.all.item(i).tagName = 'SELECT ') then
begin
doc.all.item(i).value:= '中国 ';
end;
end;
end;

读书人网 >.NET

热点推荐