mainunit.dfm

《Delphi 7经典问题解析》源代码 第一到七章 基础篇源程序 应用篇源程序

object Form1: TForm1
  Left = 224
  Top = 250
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #21033#29992#25991#20214#27969#25335#36125#25991#20214#28436#31034
  ClientHeight = 146
  ClientWidth = 420
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 337
    Height = 129
    Caption = #25968#25454#20934#22791#21306
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 24
      Width = 66
      Height = 12
      Caption = #28304#25991#20214#21517#31216':'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 16
      Top = 56
      Width = 78
      Height = 12
      Caption = #30446#26631#25991#20214#21517#31216':'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Edit1: TEdit
      Left = 96
      Top = 20
      Width = 201
      Height = 19
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object Edit2: TEdit
      Left = 96
      Top = 52
      Width = 201
      Height = 19
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
    object BitBtn1: TBitBtn
      Left = 304
      Top = 16
      Width = 25
      Height = 25
      TabOrder = 2
      OnClick = BitBtn1Click
      Glyph.Data = {
        DE030000424DDE03000000000000360000002800000011000000120000000100
        180000000000A803000000000000000000000000000000000000BFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00000000000000000000
        0000000000000000000000000000000000000000000000BFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBF00000000000000007F7F007F7F007F7F007F7F007F7F00
        7F7F007F7F007F7F007F7F000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F0000
        0000FFFF000000007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
        7F7F000000BFBFBFBFBFBFBFBFBFBFBFBF00000000FFFFFF00FFFFFFFFFF007F
        7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F000000BFBFBFBF
        BFBFBFBFBF0000000000FFFFFFFFFF00FFFF000000007F7F007F7F007F7F007F
        7F007F7F007F7F007F7F007F7F007F7F000000BFBFBFBFBFBFBF000000FFFFFF
        00FFFFFFFFFF00FFFF0000000000000000000000000000000000000000000000
        00000000000000000000BFBFBF0000000000FFFFFFFFFF00FFFFFFFFFF00FFFF
        FFFFFF00FFFFFFFFFF00FFFF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BF00000000FFFFFF00FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF
        000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFF00000000FFFFFFFFFF00
        FFFF000000000000000000000000000000000000000000BFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFFFBFBFBF000000000000000000BFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBF000000000000000000BFBFBFBFBFBF00BFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBF000000000000BFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBF000000BFBFBF000000BF
        BFBFBFBFBF7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BF000000000000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BF00}
    end
    object BitBtn2: TBitBtn
      Left = 304
      Top = 48
      Width = 25
      Height = 25
      TabOrder = 3
      OnClick = BitBtn2Click
      Glyph.Data = {
        9E020000424D9E0200000000000036000000280000000E0000000E0000000100
        1800000000006802000000000000000000000000000000000000BFBFBF000000
        0000000000000000000000000000000000000000000000000000000000000000
        00000000BFBF0000000087800087800000000000000000000000000000000000
        00C0C7C0C0C7C0000000008780000000BFBF0000000087800087800000000000
        00000000000000000000000000C0C7C0C0C7C0000000008780000000BFBF0000
        00008780008780000000000000000000000000000000000000C0C7C0C0C7C000
        0000008780000000BFBF00000000878000878000000000000000000000000000
        0000000000000000000000000000008780000000BFBF00000000878000878000
        8780008780008780008780008780008780008780008780008780008780000000
        0000000000008780008780000000000000000000000000000000000000000000
        0000000087800087800000000000000000008780000000C0C7C0C0C7C0C0C7C0
        C0C7C0C0C7C0C0C7C0C0C7C0C0C7C0000000008780000000BFBF000000008780
        000000C0C7C0C0C7C0C0C7C0C0C7C0C0C7C0C0C7C0C0C7C0C0C7C00000000087
        80000000C7C0000000008780000000C0C7C0C0C7C0C0C7C0C0C7C0C0C7C0C0C7
        C0C0C7C0C0C7C00000000087800000000000000000008780000000C0C7C0C0C7
        C0C0C7C0C0C7C0C0C7C0C0C7C0C0C7C0C0C7C0000000008780000000BFBF0000
        00008780000000C0C7C0C0C7C0C0C7C0C0C7C0C0C7C0C0C7C0C0C7C0C0C7C000
        00000000000000000000000000008780000000C0C7C0C0C7C0C0C7C0C0C7C0C0
        C7C0C0C7C0C0C7C0C0C7C0000000C0C7C0000000008700000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        8000}
    end
  end
  object BitBtn3: TBitBtn
    Left = 352
    Top = 80
    Width = 65
    Height = 25
    Caption = #22797#21046'(&C)'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = BitBtn3Click
    Glyph.Data = {
      9E020000424D9E0200000000000036000000280000000E0000000E0000000100
      1800000000006802000000000000000000000000000000000000BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00FF0000FF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBF00000000000000FF0000FF0000FF00BFBFBFBFBFBF00FF0000FF
      00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000007F7F000000000000BFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBF00FF0000FF00BFBFBFBFBFBFBFBFBFBFBFBFBF
      BF000000007F7F000000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00
      FF0000FF0000FF00BFBFBFBFBF00000000000000FFFF007F7F000000BFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00000000
      FFFF00FFFF007F7F000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBF00000000FFFF00FFFF007F7F000000BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00000000FFFF
      00FFFF007F7F000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00000000FFFF00FFFF007F7F000000BFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00000000FFFF00FF
      FF007F7F000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBF00000000FFFF00FFFF007F7F000000BFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00000000FFFF00FFFF00
      7F7F000000BFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBF00000000FFFF00FFFF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000000000BFBFBFBFBFBF
      BFBF}
  end
  object BitBtn4: TBitBtn
    Left = 352
    Top = 112
    Width = 65
    Height = 25
    Caption = #36864#20986'(&X)'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = BitBtn4Click
    Glyph.Data = {
      8E020000424D8E0200000000000036000000280000000D0000000F0000000100
      1800000000005802000000000000000000000000000000000000BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BF7FBFBFBFBFBFBFBFBFBFBFBFBF000000000000BFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FFFF00000000BFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FFFF00FFFF
      00000000BFBFBFBFBFBFBFBFBFFF0000FF0000BFBFBFBFBFBFBF000000000000
      FFFF00FFFF00FFFF00000000000000000000FF0000FFFF00FF0000BFBFBFBFBF
      BFBF000000FFFF00FFFF00FFFF00FFFF000000007F7F00FF0000FFFF00FFFF00
      FF0000FF0000FF0000BF000000FFFF00FFFF00FFFF00FFFF00000000FF0000FF
      FF00FFFF00FFFF00FFFF00FFFF00FF0000BF000000FFFF00FFFF00FFFF000000
      00000000FF0000FFFF00FFFF00FFFF00FFFF00FFFF00FF0000FF000000FFFF00
      FFFF00FFFF00FFFF000000007F7F00FF0000FFFF00FFFF00FF0000FF0000FF00
      00BF000000FFFF00FFFF00FFFF00FFFF000000007F7F007F7F00FF0000FFFF00
      FF0000BFBFBFBFBFBFFF000000FFFF00FFFF00FFFF00FFFF000000007F7F007F
      7F00000000FF0000FF0000BFBFBFBFBFBFFF000000FFFF00FFFF00FFFF000000
      007F7F007F7F007F7F00000000BFBFBFBFBFBFBFBFBFBFBFBFBF000000FFFF00
      FFFF000000007F7F007F7F007F7F007F7F00000000BFBFBFBFBFBFBFBFBFBFBF
      BFFF000000FFFF000000007F7F007F7F007F7F007F7F007F7F00000000BFBFBF
      BFBFBFBFBFBFBFBFBFFF00000000000000000000000000000000000000000000
      0000000000BFBFBFBFBFBFBFBFBFBFBFBFBF}
  end
  object OpenDialog1: TOpenDialog
    Filter = #25152#26377#25991#20214'(*.*)|*.*'
    Left = 360
    Top = 40
  end
  object SaveDialog1: TSaveDialog
    Filter = #25152#26377#25991#20214'(*.*)|*.*'
    Left = 360
    Top = 8
  end
end