Привет! В одной из предыдущих статей мы перечисляли все компоненты определённого типа на форме, мы могли присвоить им одно и то же свойство, получить их содержание и так далее.

А что если, например, у нас на форме штук 20 TPanel, и нам нужно у пяти из них поменять высоту?
Передо мной сейчас как раз и встала такая задача.

Всё очень просто:

  • Выделяем нужные компоненты (в данном случае TPanel).
  • Ставим свойство Tag отличное от нуля — по нему мы поймём, что этот компонент — нам нужный
  • И вот мой код:
    var
      i: integer;
    begin
      for i:=0 to ComponentCount-1 do
        if Components[i].Tag=1 then
          (Components[i] as TControl).Height:=Panel3.Height div 6;
    end;
    

В общем, всё аналогично той статье, но теперь мы используем свойство Tag компонента, чтобы отделить его от общей массы, а не тип.

Между делом замечу, что у меня последние два апа тиц держится на уровне полтинника, а я на него не потратил ни копейки (не считая кое-каких услуг после последнего апдейта). Можно вручную пытаться получить ссылки, а можно и заказать seo оптимизацию.