• From: Ukraine
  • Registered: 2020-06-11
  • Posts: 62

Topic: Расстановка компонентов формы циклом

Доброго времени суток!
Есть форма с компонентами (допустим это Panel1, Panel2, Panel3). Как выполнить расстановку компонентов циклом?
Пробовал:

procedure Form1_OnShow (Sender: TObject; Action: string);
var
    i:Integer;
begin
    For i:=1 to 3 do begin
        Form1.FindComponent('Panel'+IntToStr(i)).left:=28;
    End;
end;

Но получаю ошибку.

Заранее всем огромное спасибо!

I'm just learning
  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: Расстановка компонентов формы циклом

procedure Form1_OnShow (Sender: TObject; Action: string);
var
    i:Integer;
begin
    For i:=1 to 3 do begin
        TdbPanel(Form1.FindComponent('Panel'+IntToStr(i))).left:=28;
    End;
end;
  • From: Ukraine
  • Registered: 2020-06-11
  • Posts: 62

Re: Расстановка компонентов формы циклом

sibprogsistem., спасибо Вам большое!
Вот, иногда даже слов нет чтоб выразить свои эмоции. Я целый день, вчера пытался как то получить индекс искомого компонента, чтоб через свойство Controls его переместить, а нужно было всего то  TdbPanel добавить.

Спасибо еще раз за подсказку. Успехов!

I'm just learning