Доброго времени суток. Возникла следующая проблема: Нужно создать 100+ TImage. На одинаковом расстоянии, и переименовать их как надо. Вручную это займёт много времени, можно ли как-нибудь программно? Знаю, можно таким кодом:
Код:
procedure DoSomethingWithEditControls;
var
K: Integer;
EditArray: array[0..99] of Tedit;
begin
try
for K := 0 to 99 do
begin
EditArray[K] := TEdit.Create(form1);
EditArray[K].Parent := form1;
EditArray[k].Left := 100;
EditArray[k].Top := K * 10;
EditArray[k].Visible:=true;
end;
finally
end;
end;
Но тут он создаёт тедиты в программе, а мне нужно в самом проекте.