• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 298
  • Last Modified:

Controlling TWebBrowser Page controls ?

In code, how can I traverse a TWebBrowser's page and find a list control by its ID (LogBookPanel1_ddLogType) and select a item from the list?

thanks

 <select name="LogBookPanel1$ddLogType" id="LogBookPanel1_ddLogType">
<option selected="selected" value="-1">- Select One -</option>
<option value="13">Retrieve from WCMC</option>
<option value="19">Grab it from somewhere else</option>
<option value="4">Write note</option>
<option value="48">Discovered it</option>
<option value="-1">- Select One -</option>
</select>
0
geocoins-software
Asked:
geocoins-software
1 Solution
 
ziolkoCommented:
not exactly what you looking for but there are code snippets how to access elements of web-page:
http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_21372503.html
especially first comment by calinutz can be helpfull

ziolko.
0
 
wd123Commented:
as you wish =)
const html='<html><body><select name="LogBookPanel1$ddLogType" id="LogBookPanel1_ddLogType">'+
'<option selected="selected" value="-1">- Select One -</option>'+
'<option value="13">Retrieve from WCMC</option>'+
'<option value="19">Grab it from somewhere else</option>'+
'<option value="4">Write note</option>'+
'<option value="48">Discovered it</option>'+
'<option value="-1">- Select One -</option>'+
'</select></body></html>';
var el:OleVariant;
begin
WebBrowser1.Navigate('about:blank');
while WebBrowser1.ReadyState<>4 do begin Application.ProcessMessages;sleep(50);end; //wait
WebBrowser1.OleObject.document.write(html);//simulate page
el:=WebBrowser1.OleObject.document.getElementById('LogBookPanel1_ddLogType');
el.value:=4;//select 'Write note'

Open in new window

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

The 14th Annual Expert Award Winners

The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now