В TWebBrowser загружаю страницу, как после окончания загрузки зап

← →
DN © (2005-11-21 13:31) [0]

В TWebBrowser загружаю страницу, как после окончания загрузки программно заполнить 2 поля на странице и нажать кнопку, что-то совсем не въезжаю, пробовал в WebBrowser1BeforeNavigate2, как передать в TWebBrowser действия?

← →
mfender © (2005-11-21 15:25) [1]

Форма:
<form name=frm method=Post> <input type=text name=txt1 value=ksdjgfk> <input type=text name=txt2> </form>

тогда отправить её можно так:
var frmBrowser: TfrmBrowser; IDoc: IHTMLDocument2; procedure browserNavigateComplete2(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin IDoc := browser.Document as IHTMLDocument2; (IDoc.all.item("txt1",0) as IHTMLInputElement).value := "Значение первого"; (IDoc.all.item("txt2",0) as IHTMLInputElement).value := "Значение второго"; (IDoc.forms.item("frm",0) as IHTMLFormElement).submit; end;

Главное - не возвращаться, а то будет посылать форма сама себя до бесконечности ^)))

Спасибо, с этим уже разобрался, в-общем то же самое, возник другой вопрос: из открытого окна нужно программно нажать на ссылку и открывающуюся в новом окне страницу загнать во второй WebBrowser

текст из кода html:
<a href="newpage.php?r=129" target="_blank">

В TWebBrowser загружаю страницу, как после окончания загрузки зап Найти похожие ветки