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

object grdpnlAdd: TGridPanel
Left = 0
Top = 0
Width = 466
Height = 268
Align = alClient  //重要
BevelOuter = bvNone
BorderWidth = 1
Color = clWhite
ColumnCollection = < //设定3列 设定比例
item
Value = 49.500000000000000000
end
item
Value = 1.000000000000000000
end
item
Value = 49.500000000000000000
end>
ControlCollection = <
item
Column = 0
Control = pnlVehicleInfo //每个格子控制的容器
Row = 0
end
item
Column = 0
Control = pnlTransportInfo
Row = 2
end
item
Column = 2
Control = pnlCarrageUnit
Row = 0
end
item
Column = 2
Control = pnlConsignUnit
Row = 2
end
item
Column = 0
Control = pnl1CargoInfo
Row = 4
end
item
Column = 2
Control = pnl1Hint
Row = 4
end>
DoubleBuffered = True
ExpandStyle = emFixedSize
Locked = True
Padding.Left = 1
Padding.Top = 1
Padding.Right = 1
Padding.Bottom = 1
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 = 0
VerticalAlignment = taAlignBottom
ExplicitTop = -24
ExplicitWidth = 392
ExplicitHeight = 225
object pnlVehicleInfo: TPanel
Left = 3
Top = 3
Width = 226
Height = 85
Align = alClient
BevelOuter = bvNone
BevelWidth = 2
BorderWidth = 2
Color = 16776180
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentBackground = False
ParentFont = False
TabOrder = 0
ExplicitWidth = 190
ExplicitHeight = 70
object grpVehicleInfo: TGroupBox
Left = 2
Top = 2
Width = 222
Height = 81
Align = alClient
Caption = ' '#36710#36742#20449#24687' '
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
TabOrder = 0
ExplicitWidth = 186
ExplicitHeight = 66
end
end
object pnlTransportInfo: TPanel
Left = 3
Top = 92
Width = 226
Height = 69
Align = alClient
BevelOuter = bvNone
BevelWidth = 2
BorderWidth = 2
Color = 16776183
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentBackground = False
ParentFont = False
TabOrder = 2
ExplicitTop = 77
ExplicitWidth = 190
ExplicitHeight = 57
object grpTransportInfo: TGroupBox
Left = 2
Top = 2
Width = 222
Height = 65
Align = alClient
Caption = ' '#36816#36755#20449#24687' '
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
TabOrder = 0
ExplicitWidth = 186
ExplicitHeight = 53
end
end
object pnlCarrageUnit: TPanel
Left = 235
Top = 3
Width = 228
Height = 85
Align = alClient
BevelOuter = bvNone
BevelWidth = 2
BorderWidth = 2
Color = 16776183
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentBackground = False
ParentFont = False
TabOrder = 1
ExplicitLeft = 198
ExplicitWidth = 191
ExplicitHeight = 70
object grpCarrageUnit: TGroupBox
Left = 2
Top = 2
Width = 224
Height = 81
Align = alClient
Caption = #22996#25176#21333#20301' '
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
TabOrder = 0
ExplicitWidth = 187
ExplicitHeight = 66
end
end
object pnlConsignUnit: TPanel
Left = 235
Top = 92
Width = 228
Height = 69
Align = alClient
BevelOuter = bvNone
BevelWidth = 2
BorderWidth = 2
Color = 16776180
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentBackground = False
ParentFont = False
TabOrder = 3
ExplicitLeft = 198
ExplicitTop = 77
ExplicitWidth = 191
ExplicitHeight = 57
object grpConsignUnit: TGroupBox
Left = 2
Top = 2
Width = 224
Height = 65
Align = alClient
Caption = ' '#25215#36816#21333#20301' '
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
TabOrder = 0
ExplicitWidth = 187
ExplicitHeight = 53
end
end
object pnl1CargoInfo: TPanel
Left = 3
Top = 165
Width = 226
Height = 100
Align = alClient
BevelOuter = bvNone
BevelWidth = 2
BorderWidth = 2
Color = 16776180
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentBackground = False
ParentFont = False
TabOrder = 4
ExplicitTop = 138
ExplicitWidth = 190
ExplicitHeight = 84
object grpCargoInfo: TGroupBox
Left = 2
Top = 2
Width = 222
Height = 96
Align = alClient
Caption = ' '#36135#29289#20449#24687' '
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
TabOrder = 0
ExplicitWidth = 186
ExplicitHeight = 80
end
end
object pnl1Hint: TPanel
AlignWithMargins = True
Left = 238
Top = 168
Width = 222
Height = 94
Align = alClient
BevelOuter = bvNone
BevelWidth = 2
BorderWidth = 2
Color = 16776180
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentBackground = False
ParentFont = False
TabOrder = 5
ExplicitLeft = 201
ExplicitTop = 141
ExplicitWidth = 185
ExplicitHeight = 78
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; }