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

[Rusl92]

Здравствуйте, при написании большой проги нужно, чтобы не тратилось много памяти, поэтому мне посоветовали создавать компоненты TEdit, TImage, TLabel и др. во время работы проги. Пожалуйста, напишите примерный код создания компонентов во время работы проги и действия с ними, например считать инфу с только что созданного едита. Заранее благодарен!

[_Dmitry]

TForm1 = class(TForm)   
......
public  
Edit1: TEdit;   
......
end;
......
Edit1:=TEdit.Create(self);   
Edit1.Parent:=self;

[Rusl92]

А теперь можно писать так: s:=strtoint(edit1.text); ?

[_Dmitry]

Конечно, обращайтесь, как к обычному Edit-y.

[Rusl92]

Круто!
Значит не загромождает прогу!А создается во время работы проги
А массив каринок например: var image:array[1..5] of TImage ?
потом обращаться image[1].left:=100;? так?

[Rusl92]

а как с процедурами? ошибку не выдаст, когда компилирует ведь компонент еще не создан, а мне нужно уже процедуру прописать для компонента, которого еще нет, который будет создан !

[_Dmitry]

Точно так, но прежде чем обращаться к компоненту его нужно создать:

for i:=1 to 5 do
  begin
    Image[i]:=TImage.Create(self);      
    Image[i].Parent:=self;
  end;

[B_N]

Надеюсь, никто не будет против, если уточню, что, при такой постановке задачи, лучше всё-таки создавать целиком формы, а не контролы на них. Так надёжнее.

[_Dmitry]

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

а как с процедурами? ошибку не выдаст, когда компилирует ведь компонент еще не создан, а мне нужно уже процедуру прописать для компонента, которого еще нет, который будет создан !

Пример создания кнопки:

  TForm1 = class(TForm)
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;
......

procedure TForm1.Button1Click(Sender: TObject);
begin
......
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  Button1:=TButton.Create(self);
  Button1.OnClick:=Button1Click;  //здесь подцепляем процедуру
  Button1.Parent:=self;
end;

Полностью согласен с B_N, лучше все контролы создавать в designtime, а формы создавать не сразу при запуске программы (файл *.dpr)

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.Run;
end.

а по мере надобности.

[Air]

Или поиск по форуму
http://www.programmersforum.ru/showt...E7%E4%E0%F2%FC
сообшение #6