TGridPanel做一个自动按比例缩放的窗体

object grdpnlAdd: TGridPanel
  Left =
  Top =
  Width =
  Height =
  Align = alClient  //重要
  BevelOuter = bvNone
  BorderWidth =
  Color = clWhite
  ColumnCollection = < //设定3列 设定比例
    item
      Value = 49.500000000000000000
    end
    item
      Value = 1.000000000000000000
    end
    item
      Value = 49.500000000000000000
    end>
  ControlCollection = <
    item
      Column =
      Control = pnlVehicleInfo //每个格子控制的容器
      Row =
    end
    item
      Column =
      Control = pnlTransportInfo
      Row =
    end
    item
      Column =
      Control = pnlCarrageUnit
      Row =
    end
    item
      Column =
      Control = pnlConsignUnit
      Row =
    end
    item
      Column =
      Control = pnl1CargoInfo
      Row =
    end
    item
      Column =
      Control = pnl1Hint
      Row =
    end>
  DoubleBuffered = True
  ExpandStyle = emFixedSize
  Locked = True
  Padding.Left =
  Padding.Top =
  Padding.Right =
  Padding.Bottom =
  ParentBackground = False
  ParentDoubleBuffered = False
  RowCollection = < //添加五行，设定比例
    item
      Value = 33.000000000000000000
    end
    item
      Value = 1.000000000000000000
    end
    item
      Value = 27.000000000000000000
    end
    item
      Value = 1.000000000000000000
    end
    item
      Value = 38.000000000000000000
    end>
  TabOrder =
  VerticalAlignment = taAlignBottom
  ExplicitTop = -
  ExplicitWidth =
  ExplicitHeight =
  object pnlVehicleInfo: TPanel
    Left =
    Top =
    Width =
    Height =
    Align = alClient
    BevelOuter = bvNone
    BevelWidth =
    BorderWidth =
    Color =
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -
    Font.Name = ####
    Font.Style = []
    ParentBackground = False
    ParentFont = False
    TabOrder =
    ExplicitWidth =
    ExplicitHeight =
    object grpVehicleInfo: TGroupBox
      Left =
      Top =
      Width =
      Height =
      Align = alClient
      Caption = ' '####' '
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -
      Font.Name = ####
      Font.Style = []
      ParentFont = False
      TabOrder =
      ExplicitWidth =
      ExplicitHeight =
    end
  end
  object pnlTransportInfo: TPanel
    Left =
    Top =
    Width =
    Height =
    Align = alClient
    BevelOuter = bvNone
    BevelWidth =
    BorderWidth =
    Color =
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -
    Font.Name = ####
    Font.Style = []
    ParentBackground = False
    ParentFont = False
    TabOrder =
    ExplicitTop =
    ExplicitWidth =
    ExplicitHeight =
    object grpTransportInfo: TGroupBox
      Left =
      Top =
      Width =
      Height =
      Align = alClient
      Caption = ' '####' '
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -
      Font.Name = ####
      Font.Style = []
      ParentFont = False
      TabOrder =
      ExplicitWidth =
      ExplicitHeight =
    end
  end
  object pnlCarrageUnit: TPanel
    Left =
    Top =
    Width =
    Height =
    Align = alClient
    BevelOuter = bvNone
    BevelWidth =
    BorderWidth =
    Color =
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -
    Font.Name = ####
    Font.Style = []
    ParentBackground = False
    ParentFont = False
    TabOrder =
    ExplicitLeft =
    ExplicitWidth =
    ExplicitHeight =
    object grpCarrageUnit: TGroupBox
      Left =
      Top =
      Width =
      Height =
      Align = alClient
      Caption = ####' '
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -
      Font.Name = ####
      Font.Style = []
      ParentFont = False
      TabOrder =
      ExplicitWidth =
      ExplicitHeight =
    end
  end
  object pnlConsignUnit: TPanel
    Left =
    Top =
    Width =
    Height =
    Align = alClient
    BevelOuter = bvNone
    BevelWidth =
    BorderWidth =
    Color =
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -
    Font.Name = ####
    Font.Style = []
    ParentBackground = False
    ParentFont = False
    TabOrder =
    ExplicitLeft =
    ExplicitTop =
    ExplicitWidth =
    ExplicitHeight =
    object grpConsignUnit: TGroupBox
      Left =
      Top =
      Width =
      Height =
      Align = alClient
      Caption = ' '####' '
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -
      Font.Name = ####
      Font.Style = []
      ParentFont = False
      TabOrder =
      ExplicitWidth =
      ExplicitHeight =
    end
  end
  object pnl1CargoInfo: TPanel
    Left =
    Top =
    Width =
    Height =
    Align = alClient
    BevelOuter = bvNone
    BevelWidth =
    BorderWidth =
    Color =
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -
    Font.Name = ####
    Font.Style = []
    ParentBackground = False
    ParentFont = False
    TabOrder =
    ExplicitTop =
    ExplicitWidth =
    ExplicitHeight =
    object grpCargoInfo: TGroupBox
      Left =
      Top =
      Width =
      Height =
      Align = alClient
      Caption = ' '####' '
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -
      Font.Name = ####
      Font.Style = []
      ParentFont = False
      TabOrder =
      ExplicitWidth =
      ExplicitHeight =
    end
  end
  object pnl1Hint: TPanel
    AlignWithMargins = True
    Left =
    Top =
    Width =
    Height =
    Align = alClient
    BevelOuter = bvNone
    BevelWidth =
    BorderWidth =
    Color =
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -
    Font.Name = ####
    Font.Style = []
    ParentBackground = False
    ParentFont = False
    TabOrder =
    ExplicitLeft =
    ExplicitTop =
    ExplicitWidth =
    ExplicitHeight =
  end
end

全选复制，粘贴到XE 的空窗体上即可。

添加行 控件的ColumnCollection属性右键添加 Add item

添加列 控件的RowCollection 属性右键添加 Add item

控制的格子ControlCollection 就自动出来了，在上面放panel等容器，然后通过这个属性选择容器对应受到哪个格子控制。

或者用代码控制

{grdpnlAdd.ColumnCollection.BeginUpdate;
grdpnlAdd.ColumnCollection[0].Value := 49.5;
grdpnlAdd.ColumnCollection[1].Value := 1;
grdpnlAdd.ColumnCollection[2].Value := 49.5;
grdpnlAdd.ColumnCollection.EndUpdate;
grdpnlAdd.RowCollection.BeginUpdate;
grdpnlAdd.RowCollection[0].Value := 32;
grdpnlAdd.RowCollection[1].Value := 1;
grdpnlAdd.RowCollection[2].Value := 32;
grdpnlAdd.RowCollection[3].Value := 1;
grdpnlAdd.RowCollection[4].Value := 33;
grdpnlAdd.RowCollection.EndUpdate; }