unit_bmp1.dfm

一系列DELPHI的控件如何使用的例子,例子有的比较简单,但是能详细的说明了控件的使用,对许多刚涉足DELPHI的朋友会很有帮助的

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 352
  Height = 319
  Caption = #20351#29992'table'#25511#20214#23384#20648'BMP'#22270#24418
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 344
    Height = 292
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = #20445#23384
      object Panel1: TPanel
        Left = 0
        Top = 48
        Width = 241
        Height = 217
        Caption = 'Panel1'
        TabOrder = 0
        object Image1: TImage
          Left = 1
          Top = 1
          Width = 239
          Height = 215
          Align = alClient
          Stretch = True
        end
      end
      object BitBtn1: TBitBtn
        Left = 256
        Top = 0
        Width = 75
        Height = 25
        Caption = #35835#21462
        TabOrder = 1
        OnClick = BitBtn1Click
      end
      object BitBtn2: TBitBtn
        Left = 256
        Top = 200
        Width = 75
        Height = 25
        Caption = #20445#23384
        TabOrder = 2
        OnClick = BitBtn2Click
      end
      object Edit1: TEdit
        Left = 16
        Top = 8
        Width = 217
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        TabOrder = 3
        Text = 'Edit1'
      end
    end
    object TabSheet2: TTabSheet
      Caption = #26174#31034
      ImageIndex = 1
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 225
        Height = 193
        Caption = 'Panel2'
        TabOrder = 0
        object DBImage1: TDBImage
          Left = 1
          Top = 1
          Width = 223
          Height = 191
          Align = alClient
          DataField = 'A2'
          DataSource = DataSource1
          Stretch = True
          TabOrder = 0
        end
      end
      object DBNavigator1: TDBNavigator
        Left = 0
        Top = 200
        Width = 224
        Height = 25
        DataSource = DataSource1
        VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
        TabOrder = 1
      end
    end
  end
  object OpenPictureDialog1: TOpenPictureDialog
    Left = 116
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'BMPDEMO'
    TableName = 'BMP.db'
    Left = 140
    object Table1A1: TStringField
      FieldName = 'A1'
      FixedChar = True
    end
    object Table1A2: TBlobField
      FieldName = 'A2'
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 200
  end
end