[Мяфк]

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

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

[NumLock]

т.е. чтобы они в design-time были?

[Мяфк]

Что бы он был на самой форме в проекте.

[lmikle]

Маньяк
Напиши программку, которая тебе сгенерит соответсвующий исходный код .pas и .dfm. Нонче .dfm текстовый, так что его легко сгенерить.

[Мяфк]

О, хорошая идея, спасибо. Т.е. после

Код:

  object Button2: TButton
    Left = 488
    Top = 256
    Width = 75
    Height = 25
    Caption = 'Button2'
    TabOrder = 16
    OnClick = Button2Click
  end
end

Этого добавить код, который мне нужен для Тимэдж и всё? Или в компиляторе то же объявлять нужно?

[NumLock]

это в dfm:

PHP код:

object Image0: TImage
Left = 16
Top = 104
Width = 33
Height = 33
end
object Image1: TImage
Left = 49
Top = 104
Width = 33
Height = 33
end
object Image2: TImage
Left = 82
Top = 104
Width = 33
Height = 33
end
object Image3: TImage
Left = 115
Top = 104
Width = 33
Height = 33
end
object Image4: TImage
Left = 148
Top = 104
Width = 33
Height = 33
end
object Image5: TImage
Left = 181
Top = 104
Width = 33
Height = 33
end
object Image6: TImage
Left = 214
Top = 104
Width = 33
Height = 33
end
object Image7: TImage
Left = 247
Top = 104
Width = 33
Height = 33
end
object Image8: TImage
Left = 280
Top = 104
Width = 33
Height = 33
end
object Image9: TImage
Left = 313
Top = 104
Width = 33
Height = 33
end
object Image10: TImage
Left = 346
Top = 104
Width = 33
Height = 33
end
object Image11: TImage
Left = 379
Top = 104
Width = 33
Height = 33
end
object Image12: TImage
Left = 412
Top = 104
Width = 33
Height = 33
end
object Image13: TImage
Left = 445
Top = 104
Width = 33
Height = 33
end
object Image14: TImage
Left = 478
Top = 104
Width = 33
Height = 33
end
object Image15: TImage
Left = 511
Top = 104
Width = 33
Height = 33
end
object Image16: TImage
Left = 16
Top = 137
Width = 33
Height = 33
end
object Image17: TImage
Left = 49
Top = 137
Width = 33
Height = 33
end
object Image18: TImage
Left = 82
Top = 137
Width = 33
Height = 33
end
object Image19: TImage
Left = 115
Top = 137
Width = 33
Height = 33
end
object Image20: TImage
Left = 148
Top = 137
Width = 33
Height = 33
end
object Image21: TImage
Left = 181
Top = 137
Width = 33
Height = 33
end
object Image22: TImage
Left = 214
Top = 137
Width = 33
Height = 33
end
object Image23: TImage
Left = 247
Top = 137
Width = 33
Height = 33
end
object Image24: TImage
Left = 280
Top = 137
Width = 33
Height = 33
end
object Image25: TImage
Left = 313
Top = 137
Width = 33
Height = 33
end
object Image26: TImage
Left = 346
Top = 137
Width = 33
Height = 33
end
object Image27: TImage
Left = 379
Top = 137
Width = 33
Height = 33
end
object Image28: TImage
Left = 412
Top = 137
Width = 33
Height = 33
end
object Image29: TImage
Left = 445
Top = 137
Width = 33
Height = 33
end
object Image30: TImage
Left = 478
Top = 137
Width = 33
Height = 33
end
object Image31: TImage
Left = 511
Top = 137
Width = 33
Height = 33
end
object Image32: TImage
Left = 16
Top = 170
Width = 33
Height = 33
end
object Image33: TImage
Left = 49
Top = 170
Width = 33
Height = 33
end
object Image34: TImage
Left = 82
Top = 170
Width = 33
Height = 33
end
object Image35: TImage
Left = 115
Top = 170
Width = 33
Height = 33
end
object Image36: TImage
Left = 148
Top = 170
Width = 33
Height = 33
end
object Image37: TImage
Left = 181
Top = 170
Width = 33
Height = 33
end
object Image38: TImage
Left = 214
Top = 170
Width = 33
Height = 33
end
object Image39: TImage
Left = 247
Top = 170
Width = 33
Height = 33
end
object Image40: TImage
Left = 280
Top = 170
Width = 33
Height = 33
end
object Image41: TImage
Left = 313
Top = 170
Width = 33
Height = 33
end
object Image42: TImage
Left = 346
Top = 170
Width = 33
Height = 33
end
object Image43: TImage
Left = 379
Top = 170
Width = 33
Height = 33
end
object Image44: TImage
Left = 412
Top = 170
Width = 33
Height = 33
end
object Image45: TImage
Left = 445
Top = 170
Width = 33
Height = 33
end
object Image46: TImage
Left = 478
Top = 170
Width = 33
Height = 33
end
object Image47: TImage
Left = 511
Top = 170
Width = 33
Height = 33
end
object Image48: TImage
Left = 16
Top = 203
Width = 33
Height = 33
end
object Image49: TImage
Left = 49
Top = 203
Width = 33
Height = 33
end
object Image50: TImage
Left = 82
Top = 203
Width = 33
Height = 33
end
object Image51: TImage
Left = 115
Top = 203
Width = 33
Height = 33
end
object Image52: TImage
Left = 148
Top = 203
Width = 33
Height = 33
end
object Image53: TImage
Left = 181
Top = 203
Width = 33
Height = 33
end
object Image54: TImage
Left = 214
Top = 203
Width = 33
Height = 33
end
object Image55: TImage
Left = 247
Top = 203
Width = 33
Height = 33
end
object Image56: TImage
Left = 280
Top = 203
Width = 33
Height = 33
end
object Image57: TImage
Left = 313
Top = 203
Width = 33
Height = 33
end
object Image58: TImage
Left = 346
Top = 203
Width = 33
Height = 33
end
object Image59: TImage
Left = 379
Top = 203
Width = 33
Height = 33
end
object Image60: TImage
Left = 412
Top = 203
Width = 33
Height = 33
end
object Image61: TImage
Left = 445
Top = 203
Width = 33
Height = 33
end
object Image62: TImage
Left = 478
Top = 203
Width = 33
Height = 33
end
object Image63: TImage
Left = 511
Top = 203
Width = 33
Height = 33
end
object Image64: TImage
Left = 16
Top = 236
Width = 33
Height = 33
end
object Image65: TImage
Left = 49
Top = 236
Width = 33
Height = 33
end
object Image66: TImage
Left = 82
Top = 236
Width = 33
Height = 33
end
object Image67: TImage
Left = 115
Top = 236
Width = 33
Height = 33
end
object Image68: TImage
Left = 148
Top = 236
Width = 33
Height = 33
end
object Image69: TImage
Left = 181
Top = 236
Width = 33
Height = 33
end
object Image70: TImage
Left = 214
Top = 236
Width = 33
Height = 33
end
object Image71: TImage
Left = 247
Top = 236
Width = 33
Height = 33
end
object Image72: TImage
Left = 280
Top = 236
Width = 33
Height = 33
end
object Image73: TImage
Left = 313
Top = 236
Width = 33
Height = 33
end
object Image74: TImage
Left = 346
Top = 236
Width = 33
Height = 33
end
object Image75: TImage
Left = 379
Top = 236
Width = 33
Height = 33
end
object Image76: TImage
Left = 412
Top = 236
Width = 33
Height = 33
end
object Image77: TImage
Left = 445
Top = 236
Width = 33
Height = 33
end
object Image78: TImage
Left = 478
Top = 236
Width = 33
Height = 33
end
object Image79: TImage
Left = 511
Top = 236
Width = 33
Height = 33
end
object Image80: TImage
Left = 16
Top = 269
Width = 33
Height = 33
end
object Image81: TImage
Left = 49
Top = 269
Width = 33
Height = 33
end
object Image82: TImage
Left = 82
Top = 269
Width = 33
Height = 33
end
object Image83: TImage
Left = 115
Top = 269
Width = 33
Height = 33
end
object Image84: TImage
Left = 148
Top = 269
Width = 33
Height = 33
end
object Image85: TImage
Left = 181
Top = 269
Width = 33
Height = 33
end
object Image86: TImage
Left = 214
Top = 269
Width = 33
Height = 33
end
object Image87: TImage
Left = 247
Top = 269
Width = 33
Height = 33
end
object Image88: TImage
Left = 280
Top = 269
Width = 33
Height = 33
end
object Image89: TImage
Left = 313
Top = 269
Width = 33
Height = 33
end
object Image90: TImage
Left = 346
Top = 269
Width = 33
Height = 33
end
object Image91: TImage
Left = 379
Top = 269
Width = 33
Height = 33
end
object Image92: TImage
Left = 412
Top = 269
Width = 33
Height = 33
end
object Image93: TImage
Left = 445
Top = 269
Width = 33
Height = 33
end
object Image94: TImage
Left = 478
Top = 269
Width = 33
Height = 33
end
object Image95: TImage
Left = 511
Top = 269
Width = 33
Height = 33
end
object Image96: TImage
Left = 16
Top = 302
Width = 33
Height = 33
end
object Image97: TImage
Left = 49
Top = 302
Width = 33
Height = 33
end
object Image98: TImage
Left = 82
Top = 302
Width = 33
Height = 33
end
object Image99: TImage
Left = 115
Top = 302
Width = 33
Height = 33
end