mainfrm.dfm

一个自己总结的delphi常用函数（内有自己编写的一些技巧性函数 ）

object MainForm: TMainForm
  Left = 239
  Top = 154
  AutoScroll = False
  Caption = 'Delphi'#20989#25968#26597#35810#22120
  ClientHeight = 270
  ClientWidth = 479
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  ShowHint = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object StuBar1: TStatusBar
    Left = 0
    Top = 251
    Width = 479
    Height = 19
    AutoHint = True
    Panels = <
      item
        Width = 200
      end
      item
        Width = 160
      end
      item
        Width = 50
      end>
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 479
    Height = 26
    AutoSize = True
    BandMaximize = bmDblClick
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 22
        Width = 125
      end
      item
        Break = False
        ImageIndex = -1
        MinHeight = 20
        Text = #26597#35810':'
        Width = 47
      end
      item
        Break = False
        Control = Edit1
        ImageIndex = -1
        MinHeight = 22
        Width = 299
      end>
    ParentShowHint = False
    ShowHint = False
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 112
      Height = 22
      AutoSize = True
      Caption = 'ToolBar1'
      EdgeBorders = []
      Flat = True
      Images = ImgList1
      ParentShowHint = False
      ShowHint = False
      TabOrder = 0
      Transparent = True
      object ToolButton1: TToolButton
        Left = 0
        Top = 0
        Action = SysFind
      end
      object ToolButton6: TToolButton
        Left = 23
        Top = 0
        Width = 8
        Caption = 'ToolButton6'
        ImageIndex = 4
        Style = tbsSeparator
      end
      object ToolButton3: TToolButton
        Left = 31
        Top = 0
        Action = ViewTop
        AutoSize = True
        Style = tbsCheck
      end
      object ToolButton4: TToolButton
        Left = 54
        Top = 0
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object ToolButton5: TToolButton
        Left = 62
        Top = 0
        Action = HelpAbout
      end
      object ToolButton7: TToolButton
        Left = 85
        Top = 0
        Action = SysExit
        ParentShowHint = False
        ShowHint = False
      end
    end
    object Edit1: TEdit
      Left = 185
      Top = 0
      Width = 286
      Height = 22
      Hint = #36755#20837#20320#25152#38656#26597#35810#30340#20989#25968
      ParentShowHint = False
      ShowHint = False
      TabOrder = 1
      OnChange = Edit1Change
      OnKeyPress = Edit1KeyPress
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 26
    Width = 479
    Height = 225
    Align = alClient
    DataSource = DS1
    FixedColor = 16775142
    ReadOnly = True
    TabOrder = 2
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDrawColumnCell = DBGrid1DrawColumnCell
    OnTitleClick = DBGrid1TitleClick
    Columns = <
      item
        Alignment = taLeftJustify
        Expanded = False
        FieldName = 'ID'
        Title.Alignment = taCenter
        Title.Caption = #32534#21495
        Width = 49
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'FunName'
        Title.Alignment = taCenter
        Title.Caption = #20989#25968#21517#31216
        Width = 137
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'FunCata'
        Title.Alignment = taCenter
        Title.Caption = #31867#22411
        Width = 54
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'FunNote'
        Title.Alignment = taCenter
        Title.Caption = #20989#25968#35828#26126
        Width = 746
        Visible = True
      end>
  end
  object MainMenu1: TMainMenu
    Images = ImgList1
    Left = 24
    Top = 152
    object S1: TMenuItem
      Caption = #31995#32479'(&S)'
      object F1: TMenuItem
        Action = SysFind
      end
      object E1: TMenuItem
        Action = SysExit
      end
    end
    object V1: TMenuItem
      Caption = #26597#30475'(&V)'
      object T1: TMenuItem
        Action = ViewTop
      end
      object XPP1: TMenuItem
        Action = ViewXp
      end
    end
    object H1: TMenuItem
      Caption = #24110#21161'(&H)'
      object L1: TMenuItem
        Action = HelpEmail
      end
      object A1: TMenuItem
        Action = HelpAbout
      end
    end
  end
  object AdoConn1: TADOConnection