unit1.~dfm

delphi advstringgrid的使用

object Form1: TForm1
  Left = 250
  Top = 151
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object TempGrid: TStringGrid
    Left = 16
    Top = 64
    Width = 633
    Height = 225
    ColCount = 12
    Ctl3D = False
    DefaultColWidth = 80
    DefaultRowHeight = 18
    FixedCols = 0
    RowCount = 10
    ParentCtl3D = False
    TabOrder = 0
    OnSelectCell = TempGridSelectCell
    OnTopLeftChanged = TempGridTopLeftChanged
    ColWidths = (
      51
      80
      80
      80
      80
      80
      80
      80
      80
      80
      80
      80)
  end
  object editZ: TEdit
    Left = 112
    Top = 128
    Width = 121
    Height = 21
    Color = clSkyBlue
    TabOrder = 1
    Visible = False
    OnChange = editZChange
    OnClick = editZClick
    OnExit = editZExit
    OnKeyUp = editZKeyUp
  end
  object cmbZ: TComboBox
    Left = 272
    Top = 128
    Width = 145
    Height = 21
    Color = clSkyBlue
    ItemHeight = 13
    TabOrder = 2
    Visible = False
    OnChange = cmbZChange
    OnClick = cmbZClick
    OnExit = cmbZExit
    OnKeyUp = editZKeyUp
  end
  object Edit1: TEdit
    Left = 16
    Top = 24
    Width = 121
    Height = 21
    TabOrder = 3
  end
end