VPF::Создание TabbedNotebook - Форум программистов

мимо

Дата 10.6.2011, 12:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 13.6.2009

Репутация: нет
Всего: нет

При нажатии на кнопку необходимо создать на Panel2 TabbedNotebook с вкладкой и на ней WEbBrowser,
в который загрузить страницу с диска. Делаю так, но TabbedNotebook не создается и еще вопрос -
загрузиться ли страница с диска вместе с картинками (они находятся рядом со *.htm)???

кнопка

Код


var
 B: TWebBrowser;
 T: TTabbedNotebook;
 NewPage: TWinControl;
begin
T := TTabbedNotebook.Create(Form1.Panel2);
with T do
begin
 Align:=alClient;
 Visible := True;
 T.Pages.Add('стр.' + inttostr(i));
 NewPage := T.Pages.Objects[T.Pages.Count - 1] as TWinControl;
end;
B:=TWEbBrowser.Create(T);
with B do
begin
if Form1.PageControl1.PageCount>1 then
B:=TWEbBrowser(Form1.PageControl1.ActivePage.Components[0]);
Navigate('С:\Temp\' + FileN + '.htm');
Visible:=true;
TControl(B).Parent := T;
Align:=alClient;
end;

Snowy

Дата 10.6.2011, 13:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Код


T.Parent := Form1.Panel2;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »