Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > Динамическое создание таблицы в TWebBrowser

Автор: GrigoriyFomin 2.11.2011, 17:32

Приведите пример кода для создания таблицыв пустом окне браузера. Сколько пробовал - не отображает ее

Код


var b,r,c:olevariant;
  tbl:=((wb.document as ihtmldocument2).createElement('table') as IHTMLTable);

  r:=tbl.insertRow(0);
  r.bgcolor:=0;
  c:=r.insertcell(0);
  c.innerhtml:='qqq';

Автор: volvo877 2.11.2011, 18:43

Цитата(GrigoriyFomin @ 2.11.2011, 17:32

)

Сколько пробовал - не отображает ее

Попыток отображения не видно. Вижу только создание. Чтоб созданную таблицу показать -

Код


// ... тут создание
((wb.document as ihtmldocument2).selection.createRange as ihtmltxtrange).pasteHTML(tbl.outerhtml);

Автор: GrigoriyFomin 2.11.2011, 19:06

не работает :-( - нет такого метода у интерфейса таблицы. Имхо, работа с текстом хтмл в выбранном способе доступа к таблице некрасива, с таким успехом можно вручную сформировать хтмл-текст типа <table><tr><td>jjjjj</td></tr></table>

Автор: volvo877 2.11.2011, 19:47

Цитата(GrigoriyFomin @ 2.11.2011, 19:06

)

не работает :-( - нет такого метода у интерфейса таблицы.

Если б не отработало - я б не отвечал. Перед тем, как что-то написать, я проверяю код. Всегда...

Цитата(GrigoriyFomin @ 2.11.2011, 19:06

)

Имхо, работа с текстом хтмл в выбранном способе доступа к таблице некрасива

Этот способ доступа к таблице был выбран тобой. Я только показал, как отобразить таблицу в WB. Некрасиво - сделай красиво.