|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
TWebBrowser - Добавление нового пункта в список (типа ListBox))
Здравствуйте!
Необходима помощь в решении следующего вопроса: Есть TWebBrowser в котором открывается ссылка. По ссылке открывается форма на которой присутствует список типа ListBox. Необходимо програмно добавить в этот список новые пункты. Я делаю таким образом: После загрузки страницы запускается по нажатию кнопки следующий код: Код:
var i:integer; DocA: IHTMLElementCollection; Element,NewElement: IHTMLElement; Options: IHTMLSelectElement; begin //Находим все элементы формы DocA:=(WebBrowser1.Document as IHTMLDocument2).all; for i:=0 to DocA.length - 1 do begin Element:=DocA.item(i,0) as IHTMLElement; //Ищем нужный элемент (в данном случае список) if Element.id='List' Then Begin Options:=(Element as IHTMLSelectElement); //Создаем новый элемент NewElement.title:='12345'; NewElement.id:='6789'; //Добавляем элемент Options.add(NewElement,'beforeend'); //после добавления элемента завершаем цикл Break; End; end; End; Но происходит ошибка. Я уверен что ошибка происходит где-то в районе создания нового элемента. |
#2
|
|||
|
|||
P.S.
Функция Element.insertAdjacentHTML не подходит. Не знаю почему, но она обрабатывается некорректно
|