[petro0127]

У меня єсть в програме около 50 labels и мне нужно в коде програмы сменить их положение, как ето зделать, чтоби не писать label2.top , label3.top ... label50.top ???? можно объединить все label в масив, если да, то как ето зделать???

[angvelem]

Примерно так:

Код:

  // Устанавливаем для всех Label-ов новую позицию
  for I := 0 to ComponentCount - 1 do
    if (Components[i] is TLabel) then
      (Components[i] as TLabel).Top := 10;

[Bargest]

или так:

Код:

for i:=1 to 50 do
 TLabel(FindComponent('Label'+inttostr(i))).Top:=10;

[angvelem]

Не совсем красивое решение, хотя работать будет.

[Bargest]

Да, тут куча сравнений строк лишних. Просто как альтернатива.

[petro0127]

спасибо за ответы ...я использивал код, которий написал Bargest...так как он виглядит проще

[antikiler]

Или так

Код:

for i:=1 to 50 do
 Label[i].Top:=10

[angvelem]

Сообщение от petro0127

...так как он виглядит проще

Ну-ну.