|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.10.2008, 00:44 | #1 |
Пользователь
Регистрация: 27.09.2008
Сообщений: 21
|
динамический родитель динамического объекта
Подскажите как правильно
динамически создать компонент на ВТОРОЙ форме на компоненте(например панель) который также создавался ДИНАМИЧЕСКИ но в первой форме? xxx := XXXl.Create(????);
вот научусь......и тогда америкосам п.дец!!!!!!!!
и ваще.....дизайнер...я.......))))) )))))))))) |
02.10.2008, 14:55 | #2 |
Участник клуба
Регистрация: 12.10.2007
Сообщений: 1,204
|
Определитесь когда и кто будет уничтожать этот объект. Вот этот объект и укажите. т.е. если объект будет принадлежать form2, то Create(Form2)
|
02.10.2008, 19:13 | #3 |
Пользователь
Регистрация: 27.09.2008
Сообщений: 21
|
Это понятно.....а как чтобы родителем была панель на форме 2???
тоесть чтобы на ней компонент размещался??? а не на форме 2? если в первой форме она никак не определена? а на второй ее вообще нет пока???
вот научусь......и тогда америкосам п.дец!!!!!!!!
и ваще.....дизайнер...я.......))))) )))))))))) |
02.10.2008, 19:24 | #4 | ||
Участник клуба
Регистрация: 12.10.2007
Сообщений: 1,204
|
Цитата:
Цитата:
Код:
|
||
02.10.2008, 20:25 | #5 |
Пользователь
Регистрация: 27.09.2008
Сообщений: 21
|
привожу код
unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons; type TForm1 = class(TForm) BitBtn1: TBitBtn; procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Unit2; {$R *.dfm} procedure TForm1.BitBtn1Click(Sender: TObject); begin Form2.Visible:=True; end; end. unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls; type TForm2 = class(TForm) BitBtn1: TBitBtn; BitBtn2: TBitBtn; procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation uses Unit1; {$R *.dfm} procedure TForm2.BitBtn1Click(Sender: TObject); var T : TTabSheet; P : TPageControl; begin P := TPageControl.Create(Form1); with P do begin Parent := Form1; Top := 50; Left := 10; Width := 300; Height := 300; end; T := TTabSheet.Create(P); with T do begin Visible := True; Caption:='Уровень 1'; PageControl := P; end; end; procedure TForm2.BitBtn2Click(Sender: TObject); var T : TTabSheet; P : TPageControl; begin P := TPageControl.Create(??????);//Здесь что писать чтобы второй PageControl появился не на Form1,а на закладке 'Уровень 1' with P do begin Parent := ????????; Width := 270; Height := 270; end; T := TTabSheet.Create(P); with T do begin Visible := True; Caption:='Уровень 2'; PageControl := P; end; end; end.
вот научусь......и тогда америкосам п.дец!!!!!!!!
и ваще.....дизайнер...я.......))))) )))))))))) |
02.10.2008, 21:22 | #6 |
Участник клуба
Регистрация: 12.10.2007
Сообщений: 1,204
|
Вот так:
Код:
|
03.10.2008, 22:07 | #7 |
Пользователь
Регистрация: 27.09.2008
Сообщений: 21
|
спс !!!!!!!!!!!!!!
тема закрыта!!!! <>
вот научусь......и тогда америкосам п.дец!!!!!!!!
и ваще.....дизайнер...я.......))))) )))))))))) |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Удаление элемента динамического массива | Dogmat | Помощь студентам | 6 | 13.07.2008 14:33 |
Удаление записи из динамического масива... | Altera | Общие вопросы Delphi | 4 | 09.06.2008 09:15 |
СОХРАНИЯ В ФАЙЛ ДВУМЕРНОГО ДИНАМИЧЕСКОГО МАСИВА!!!! | _FL@ER_ | Помощь студентам | 2 | 23.06.2007 16:31 |
Заполнение динамического списка из файла | KORT | Помощь студентам | 2 | 01.05.2007 22:28 |