При нажатии на кнопку необходимо создать на 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;
|
|