Клонирование

← →
Zaurr (2005-01-06 19:59) [0]

Доброго времени дня.

У меня на форме есть PageControl с одной страницей. На этой странице есть одна кнопка и TWebBrowser.Мне необходимо в рантайм режиме добавлять страницы на PageControl , которые будут точными копиями первой страницы . Страницу создать получается и кнопку на ней тоже , но Вебброузер никак не хочет добавляться. Может кто-нибудь сталкивался с подобной проблемой . Подскажите как с этим бороться .
Заранее спасибо.

← →
maxz © (2005-01-06 20:08) [1]

напишите поподробнее, что вы делаете. вместе с кодом.

← →
Zaurr (2005-01-06 20:23) [2]

Код такой,,

procedure TForm1.Button1Click(Sender: TObject);
var

PageControl: TPageControl;
TabSheet: TTabSheet;
Browser:TWebBrowser;
begin

TabSheet := TTabSheet.Create(Self);
TabSheet.Caption := "New Page";
TabSheet.PageControl := PageControl;

with TButton.Create(Self) do
begin
Caption := "Close";
OnClick := CloseW;
Parent := TabSheet;
end;

with TWebBrowser.Create(Self) do
begin
Caption := "New Browser";
Parent := TabSheet;
вот здесь дельфи ругается на read only свойство,,,
end;

нужно чтобы добавлялась новая страница , которая была бы точной копией первой , со всеми свойстввами объектов , которые расположены на первой странице

← →
Piter © (2005-01-06 20:32) [3]

TWinControl(WebBrowser1).Parent := PageControl...

← →
Piter © (2005-01-06 20:34) [4]

Zaurr (06.01.05 20:23) [2]
Parent := TabSheet;
вот здесь дельфи ругается на read only свойство,,,

TWinControl(Parent) := TabSheet;

Потому что свойство визуальных компонентов Parent замещено в TWebBrowser другим свойством.

← →
Zaurr (2005-01-06 21:04) [5]

Спасибо вам .
Получилось так:

Browser:=TWebBrowser.Create(self);

with Browser do
begin
Caption := "New Browser";
TWinControl(Browser).Parent:=TabSheet ;
Align:=alClient;
end;

***

← →
Grotesque (2005-01-07 04:00) [6]

ИМХО, если ты делаешь че-нить а-ля Opera лучше сделай MDI: дизайнишь себе форму, а потом создаешь ее сколько надо раз...

Клонирование Найти похожие ветки