• 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; }

  • 相关阅读:
    前导问题word使用技巧解决Word 生成目录时前导符不一致的问题(即通常所谓的目录中省略号大小不一致)
    安装用户debian7安装oracle11g
    字节文件MP3格式音频文件结构解析
    Linux下硬盘分区的最佳方案
    802.1x客户端软件 2.4版破解支持多网卡
    z9jpz.dll、gq0aku0.exe、cms2cmw.sys病毒
    Ghost批处理文件的基本格式
    利用ASP远程注册DLL的方法
    dllhost.exe系统进程介绍
    Unicode 和多字节字符集 (MBCS)
  • 原文地址:https://www.cnblogs.com/rogge7/p/5828742.html
Copyright © 2020-2023  润新知