Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Динамическое создания нескольких копий формы [D5]


SOLDEN1 ©   (2004-11-26 15:55:00) 

Здравствуйте! Подскажите как правильно динамически создать несколко копий формы и чтобы можно было обращаться к ним по отдельности.


SOLDEN1   (2004-11-26 16:44:00) [1]

Спасибо. Я решил свою позорную проблему.


Amoeba   (2004-11-26 16:35:00) [2]

А еще лучше исполоьзовать не динамический массив, а TObjectList.


begin...end   (2004-11-26 16:23:00) [3]


> [2] SOLDEN1   (26.11.04 16:15)

var
 MyArray: array of TMyForm;
 I: Integer;

begin
 SetLength(MyArray, {нужное количество элементов});
 for I := Low(MyArray) to High(MyArray) do
   MyArray[I] := TMyForm.Create(NIL)
end.


Плохиш   (2004-11-26 16:17:00) [4]


> SOLDEN1   (26.11.04 16:15) [2]
> Я имел ввиду неограниченное число копий, а Form1, Form2
> - ограничивает в какой-то мере.

repeat
 TMyForm.Create(nil);
until false;

PS. Книжку бы что ли почитал.


SOLDEN1   (2004-11-26 16:15:00) [5]

Я имел ввиду неограниченное число копий, а Form1, Form2 - ограничивает в какой-то мере.


begin...end   (2004-11-26 15:57:00) [6]

Экземпляры классов, в том числе и формы, создаются с помощью вызова конструктора.

Например:

var
 Form1, Form2: TMyForm;

begin
 Form1 := TMyForm.Create(NIL);
 Form2 := TMyForm.Create(NIL)
end.

Теперь можно по отдельности ображаться к Form1 и Form2.


Наверх

Титульная страница Поиск, карта сайта Написать письмо