TWebBrowser и таблица

← →
Андрей (начинающий) (2009-04-26 21:02) [0]

Подскажите, плиз, как вывести на TWebBrowser массив в виде таблицы.
Tекст и ссылки вставляются, а теги таблицы (<table>, <tr>, <td>) не срабатывают.

procedure TForm1.FormShow(Sender: TObject); begin WebBrowser1.Navigate("about:<html><body></body></html>"); end; procedure TForm1.Button1Click(Sender: TObject); begin s:="<br><a href="...">...</a>"; (WebBrowser1.Document as IHtmlDocument2).body.insertAdjacentHTML("beforeEnd", s ); end; procedure TForm1.Button2Click(Sender: TObject); begin (WebBrowser1.Document as IHtmlDocument2).body.insertAdjacentHTML("beforeEnd", "<table><tr><td>"); s:="<a href="...">...</a>"; (WebBrowser1.Document as IHtmlDocument2).body.insertAdjacentHTML("beforeEnd", s ); (WebBrowser1.Document as IHtmlDocument2).body.insertAdjacentHTML("beforeEnd", "</tr></td></table>"); end;

← →
Igor2010 (2009-04-26 21:50) [1]

> TWebBrowser массив в виде таблицы.

WebBrowser1.Navigate(ПУТЬ К ФАЙЛУ С ТАБЛИЦЕЙ+"table.htm");

← →
Андрей (начинающий) (2009-04-26 22:00) [2]

Спасибо, уже сам разобрался.
Мне массив надо выводить из программы "на лету" (т.е. он в разное время заполнен разными данными) и внешний файл не подходит.
Ошибка была в том, что надо было сначала заполнить строку s данными вместе с тегами html, а затем уже выводить с помощью
...insertAdjacentHTML("beforeEnd", s )

TWebBrowser и таблица Найти похожие ветки