faddx.~dfm

一个很好的例子

object F_addx: TF_addx
  Left = 222
  Top = 68
  BorderStyle = bsNone
  Caption = 'f_addx'
  ClientHeight = 358
  ClientWidth = 504
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 504
    Height = 358
    Align = alClient
    BevelWidth = 2
    Color = clSkyBlue
    TabOrder = 0
    OnMouseDown = Panel1MouseDown
    object Label1: TLabel
      Left = 16
      Top = 9
      Width = 36
      Height = 13
      Caption = #39064#30446#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 154
      Top = 236
      Width = 73
      Height = 21
      AutoSize = False
      Caption = #27491#30830#31572#26696#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 156
      Top = 272
      Width = 60
      Height = 13
      Caption = #39064#30446#22270#29255#65306
    end
    object SpeedButton1: TSpeedButton
      Left = 400
      Top = 264
      Width = 33
      Height = 22
      Caption = '.......'
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 432
      Top = 264
      Width = 33
      Height = 22
      Caption = 'X'
      OnClick = SpeedButton2Click
    end
    object SpeedButton3: TSpeedButton
      Left = 208
      Top = 304
      Width = 73
      Height = 33
      Caption = #20445#23384
      Flat = True
      OnClick = SpeedButton3Click
    end
    object SpeedButton4: TSpeedButton
      Left = 344
      Top = 304
      Width = 81
      Height = 33
      Caption = #21462#28040
      Flat = True
      OnClick = SpeedButton4Click
    end
    object Label8: TLabel
      Left = 320
      Top = 232
      Width = 3
      Height = 13
    end
    object GroupBox1: TGroupBox
      Left = 16
      Top = 88
      Width = 465
      Height = 129
      Caption = #31572#26696#36873#39033
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object Label2: TLabel
        Left = 16
        Top = 20
        Width = 25
        Height = 13
        AutoSize = False
        Caption = 'A'#12289
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 16
        Top = 46
        Width = 25
        Height = 13
        AutoSize = False
        Caption = 'B'#12289
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 16
        Top = 75
        Width = 25
        Height = 13
        AutoSize = False
        Caption = 'C'#12289
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 16
        Top = 103
        Width = 25
        Height = 13
        AutoSize = False
        Caption = 'D'#12289
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Edit1: TEdit
        Left = 40
        Top = 17
        Width = 409
        Height = 21
        TabOrder = 0
      end
      object Edit2: TEdit
        Left = 40
        Top = 45
        Width = 409
        Height = 21
        TabOrder = 1
      end
      object Edit3: TEdit
        Left = 40
        Top = 73
        Width = 409
        Height = 21
        TabOrder = 2
      end
      object Edit4: TEdit
        Left = 40
        Top = 101
        Width = 409
        Height = 21
        TabOrder = 3
      end
    end
    object Memo1: TMemo
      Left = 16
      Top = 27
      Width = 465
      Height = 60
      Lines.Strings = (
        '')
      MaxLength = 200
      TabOrder = 1
    end
    object Panel2: TPanel
      Left = 8
      Top = 224
      Width = 129
      Height = 121
      BevelOuter = bvLowered
      Color = clBackground
      TabOrder = 2
      object Image1: TImage
        Left = 1
        Top = 1
        Width = 127
        Height = 119
        Align = alClient
        Stretch = True
        Transparent = True
      end
    end
    object ComboBox1: TComboBox
      Left = 224
      Top = 232
      Width = 73
      Height = 21
      ItemHeight = 13
      TabOrder = 3
      Items.Strings = (
        #26159
        #21542
        'A'
        'B'
        'C'
        'D')
    end
    object Edit5: TEdit
      Left = 224
      Top = 264
      Width = 177
      Height = 21
      TabOrder = 4
    end
  end
  object OpenPictureDialog1: TOpenPictureDialog
    Filter = 'Bitmaps (*.bmp)|*.bmp'
    Left = 320
    Top = 232
  end
end