Форум: "Основная";
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];

Вниз

окна.....окна....окна...   Найти похожие ветки 

← →
Юрий Зотов   (2002-01-30 13:55) [7]

Можно и TList, только не так, а проще:

FormList.Add(TMyForm.Create(Application));

А в обработчике TMyForm.OnDestroy пишем:
FormList.Remove(Self); // Автоматическое самоудаление из списка


Еще вариант - динамический массив.
var
FormArray: array of TMyForm;

function CreateMyForm: TMyForm;
begin
Result := TMyForm.Create(Application);
try
SetLength(FormArray, Length(FormArray) + 1);
FormArray[High(FormArray)] := Result
except
Result.Release;
raise
end
end;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.005 c