![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Клонирование
Zaurr © (2005-01-06 19:59:00)Доброго времени дня.
У меня на форме есть PageControl с одной страницей. На этой странице есть одна кнопка и TWebBrowser.Мне необходимо в рантайм режиме добавлять страницы на PageControl , которые будут точными копиями первой страницы . Страницу создать получается и кнопку на ней тоже , но Вебброузер никак не хочет добавляться. Может кто-нибудь сталкивался с подобной проблемой . Подскажите как с этим бороться .
Заранее спасибо.
Grotesque (2005-01-07 04:00:00) [1]ИМХО, если ты делаешь че-нить а-ля Opera лучше сделай MDI: дизайнишь себе форму, а потом создаешь ее сколько надо раз...
Zaurr (2005-01-06 21:04:00) [2]Спасибо вам .
Получилось так:
Browser:=TWebBrowser.Create(self);
with Browser do
begin
Caption := 'New Browser';
TWinControl(Browser).Parent:=TabSheet ;
Align:=alClient;
end;
***
Piter (2005-01-06 20:34:00) [3]Zaurr (06.01.05 20:23) [2]
Parent := TabSheet;
вот здесь дельфи ругается на read only свойство,,,
TWinControl(Parent) := TabSheet;
Потому что свойство визуальных компонентов Parent замещено в TWebBrowser другим свойством.
Piter (2005-01-06 20:32:00) [4]TWinControl(WebBrowser1).Parent := PageControl...
Zaurr (2005-01-06 20:23:00) [5]Код такой,,
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;
нужно чтобы добавлялась новая страница , которая была бы точной копией первой , со всеми свойстввами объектов , которые расположены на первой странице
maxz (2005-01-06 20:08:00) [6]напишите поподробнее, что вы делаете. вместе с кодом.