[TRUCO DELPHI] Define el ancho de todos los hijos de un TPanel.
delphi
procedure SetChildWidths(Panel : TPanel); Var i : Integer; Width : Integer; Begin Width := (Panel.Width - (Panel.BorderWidth * 2) - (Panel.BevelWidth * 4)) div Panel.ControlCount; For i := 0 To Panel.ControlCount - 1 Do Begin Panel.Controls[i].Width := Width; End; End;
Saludos!