[dagon81]

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

[ApxaHGe1]

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

[dagon81]

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

[NumLock]

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

[icWasya]

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

Код:

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.]

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