Создание компонентов во время работы программы

[Rusl92]

А тогда Вы бы не могли написать код создания формы - затем создания на ней компонента Pagecontrol - затем создания на первой вкладке Pagecontrola кнопки и labela - затем создание процедуры, при которой при нажатии кнопки например текст labela становился ПОЛУЧИЛОСь.

[_Dmitry]

Не мудрите, создавайте формы со всем содержимым обычным образом в редакторе Delphi.
Когда форма понадобится в вашей программе:

Application.CreateForm(TForm2, Form2);
Form2.Show;

Только не забудьте удалить аналогичные строки из файла проекта *.dpr

[pu4koff]

или в сторону фреймов можно глянуть. в зависимости от задачи

[Air]

Всё перечисленное создать можно, тоько я работаю, а не прохлаждаюсь дома.

затем создание процедуры

А процедуры Вам придётся создать заранее, а Вы как думали, не всё так просто.

[Rusl92]

Сначала создать форму: но я предполагаю, что прога будет состоять из одной формы. А мне нужно, чтобы PageControl создавался во время работы проги, можно сделать так?Или создавать очень много форм?

[Rusl92]

Пожалуйста помогите мне:
Вы бы не могли написать код создания формы - затем создания на ней компонента Pagecontrol - затем создания на первой вкладке Pagecontrola кнопки и labela - затем создание процедуры, при которой при нажатии кнопки например текст labela становился ПОЛУЧИЛОСь.

[_Dmitry]

На форму ничего кидать не надо.
Замени текст модуля Unit1 и для пустой формы назначь обработчик для события OnShow

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:='ПОЛУЧИЛОСЬ';
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  PageControl1:=TPageControl.Create(self);
  PageControl1.Parent:=self;
  TabSheet1:=TTabSheet.Create(self);
  TabSheet1.Caption:='Вкладка 1';
  TabSheet1.Parent:=self;
  TabSheet1.PageControl:=PageControl1;
  TabSheet2:=TTabSheet.Create(self);
  TabSheet2.Caption:='Вкладка 2';
  TabSheet2.Parent:=self;
  TabSheet2.PageControl:=PageControl1;
  TabSheet3:=TTabSheet.Create(self);
  TabSheet3.Caption:='Вкладка 3';
  TabSheet3.Parent:=self;
  TabSheet3.PageControl:=PageControl1;
  PageControl1.ActivePage:=TabSheet1;
  Button1:=TButton.Create(self);
  Button1.Caption:='Жми';
  Button1.OnClick:=Button1Click;
  Button1.Parent:=TabSheet1;
  Label1:=TLabel.Create(self);
  Label1.Parent:=TabSheet1;
  Label1.Left:=100;
end;

end.

[Rusl92]

спасибо большое, но есть одно но, если у меня вкладок будет очень много, то программа будет грузиться 2 часа И все равно она будет занимать память?
Просто у меня такая задача: там много вкладок будет, нужно будет экономить память, каким образом можно сделать так: при нажатии например на 2 вкладку (она должна открываться), компоненты, которые были на первой вкладке "уничтожаются", и сразу загружаются другие данные, кнопки и т.д. на вторую вкладку, так будет много памяти экономиться. Помогите пожалуйста.

[_Dmitry]

Ничего на этом не сэкономишь, max 1..2 МБ (если уж формы очень сложные). Так что не мудрите...

[Rusl92]

А все-таки возможно только при нажатии на вкладку загружать туда информацию. А на той вкладке, которая была активна, а теперь - нет, "удалить" все компоненты?