[dagon81]

День добрый знатокам.
имеется код для выравнивания лейбла по правой стороне компонента при изменении размера.
lbtotal.Left := self.Width - lbtotal.Width - 15;
таких строк много, как упростить написание кода или может функцию для этого написать?
Подскажите.

[ApxaHGe1]

А через Anchors не проще ?

[dagon81]

Не подходит, хотелось бы программно.

[NumLock]

Якоря как раз для этого и сделаны. И не надо никакого своего кода изобретать. Но если хочется велосипеда то Stels, тьфу, Controls в руки.

[icWasya]

Например, так

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure R15(panel:TControl;lb:TControl); begin   lb.Left:=panel.Width-15+lb.Width; end;   procedure Form1.OnRecize(Sender:TObject); begin          R15(Panel1,Label1);   R15(Panel1,Label2);   end;

[dagon81]

Попробую. Спасибо

[M.A.D.M.A.N.]

Хелперы есть существуют.