[Escalion]

Здравствуйте!
Необходима помощь в решении следующего вопроса:
Есть TWebBrowser в котором открывается ссылка. По ссылке открывается форма на которой присутствует список типа ListBox. Необходимо програмно добавить в этот список новые пункты.

Я делаю таким образом:
После загрузки страницы запускается по нажатию кнопки следующий код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

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;

Но происходит ошибка. Я уверен что ошибка происходит где-то в районе создания нового элемента.

[Escalion]

Функция Element.insertAdjacentHTML не подходит. Не знаю почему, но она обрабатывается некорректно