Показать сообщение отдельно
  #1  
Старый 25.04.2011, 18:46
Мяфк Мяфк вне форума
Начинающий
 
Регистрация: 30.05.2010
Сообщения: 102
Репутация: 10
По умолчанию Создание компонентов

Доброго времени суток. Возникла следующая проблема: Нужно создать 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;

Но тут он создаёт тедиты в программе, а мне нужно в самом проекте.
Ответить с цитированием