
24.08.2016, 16:01
|
Местный
|
|
Регистрация: 09.11.2010
Сообщения: 499
Репутация: 10
|
|
Например, так
Код:
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;
|