unit1.dfm

hook简单应付用,希望可以给大家一些帮助. 谢谢大家,我要下载一个东西,所以传一个源码

object FrmSGHooked: TFrmSGHooked
  Left = 519
  Top = 115
  BorderStyle = bsDialog
  Caption = 'StringGrid to be hooked'
  ClientHeight = 360
  ClientWidth = 488
  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 SG: TStringGrid
    Left = 8
    Top = 8
    Width = 473
    Height = 345
    ColCount = 8
    DefaultColWidth = 54
    DefaultRowHeight = 20
    RowCount = 20
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goAlwaysShowEditor]
    TabOrder = 0
  end
end