Вниз
Скачать: CL | DM;

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

 
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: дизайнишь себе форму, а потом создаешь ее сколько надо раз...



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c
1-1105399317
chir
2005-01-11 02:21
2005.01.23
OnChange - явный вызов


1-1105222689
WhiteGuy
2005-01-09 01:18
2005.01.23
Damned кавычки!!!


1-1105602787
Vlash
2005-01-13 10:53
2005.01.23
Установка рабочей папки приложения


1-1105369834
DK
2005-01-10 18:10
2005.01.23
Как остановить выполнение метода


3-1103619169
Romano
2004-12-21 11:52
2005.01.23
Ошибка InterBase




   Наверх