Создание нескольких экземпляров формы

← →
DmitryPV (2002-03-09 15:16) [10]

Господа, большое спасибо!
Проблема решена действительно с помощью динамического массива:

var Plans: array of TForm;

SetLength(Plans, 5);

for i:=0 to 4 do begin
Plans[i]:=TPlan.Create(Self);
with Plans[i] do begin
Name:="Plan"+IntToStr(i+1);
Caption:="План N"+IntToStr(i+1);
end;
end;

А обработчик нажатия кнопки (можно, конечно и изящнее):

var A: integer;

A:=StrToInt(Copy(TControl(Sender).Name,2,1));
Plans[i-1].Show;

Создание нескольких экземпляров формы Найти похожие ветки