динамический родитель динамического объекта

[russianstrike]

Подскажите как правильно
динамически создать компонент на ВТОРОЙ форме
на компоненте(например панель) который также создавался ДИНАМИЧЕСКИ но в первой форме?


xxx := XXXl.Create(????);

[alexBlack]

Сообщение от russianstrike

Подскажите как правильно
динамически создать компонент на ВТОРОЙ форме
на компоненте(например панель) который также создавался ДИНАМИЧЕСКИ но в первой форме?


xxx := XXXl.Create(????);

Определитесь когда и кто будет уничтожать этот объект. Вот этот объект и укажите. т.е. если объект будет принадлежать form2, то Create(Form2)

[russianstrike]

Это понятно.....а как чтобы родителем была панель на форме 2???
тоесть чтобы на ней компонент размещался??? а не на форме 2?


если в первой форме она никак не определена?
а на второй ее вообще нет пока???

[alexBlack]

Сообщение от russianstrike

Это понятно.....а как чтобы родителем была панель на форме 2???
тоесть чтобы на ней компонент размещался??? а не на форме 2?
если в первой форме она никак не определена?
а на второй ее вообще нет пока???

А вот это:

...на компоненте(например панель) который также создавался ДИНАМИЧЕСКИ но в первой форме

то есть где то есть панель:

procedure TForm4.FormCreate(Sender: TObject);
var P:TPanel;
    B:TButton;
begin
    P := TPanel.Create(Self);
    P.Parent := Self;           // панель на форме

    B := TButton.Create(Self);
    B.Parent := P;              // кнопка на панели
end;

Приведите лучше код с которым у Вас трудности

[russianstrike]

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.

[alexBlack]

Вот так:

type
  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    PageControl1: TPageControl;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    _TabSheet : TTabSheet;  // !!!
  public
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

uses Unit1;

procedure TForm2.Button1Click(Sender: TObject);
var P : TPageControl;
begin
   P := TPageControl.Create(Form1);
   with P do begin
     Parent := Form1;
     Top := 50;
     Left := 10;
     Width := 300;
     Height := 300;
   end;
   _TabSheet := TTabSheet.Create(P);
   with _TabSheet do begin
     Visible := True;
     Caption:='Уровень 1';
     PageControl := P;
   end;
end;

procedure TForm2.Button2Click(Sender: TObject);
var T : TTabSheet;
P : TPageControl;
begin
   P := TPageControl.Create(Form1);
   with P do begin
      Parent := _TabSheet;
      Width := 270;
      Height := 270;
   end;
   T := TTabSheet.Create(P);
   with T do begin
     Visible := True;
     Caption:='Уровень 2';
     PageControl := P;
   end;
end;

[russianstrike]

спс !!!!!!!!!!!!!!
тема закрыта!!!!

<>