Delphi控件源码

开发平台：

Delphi

BranchFrm.dfm：源码内容

							object BranchForm: TBranchForm
  Left = 399
  Top = 403
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = #37096#38376
  ClientHeight = 102
  ClientWidth = 354
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 8
    Top = 16
    Width = 24
    Height = 12
    Caption = #21517#31216
  end
  object EDBranchName: TEdit
    Left = 48
    Top = 8
    Width = 297
    Height = 20
    MaxLength = 50
    TabOrder = 0
    OnChange = EDBranchNameChange
    OnKeyPress = EDBranchNameKeyPress
  end
  object BTOK: TButton
    Left = 192
    Top = 72
    Width = 75
    Height = 23
    Caption = #30830#23450
    Enabled = False
    ModalResult = 1
    TabOrder = 1
  end
  object BTCancel: TButton
    Left = 272
    Top = 72
    Width = 75
    Height = 23
    Caption = #21462#28040
    ModalResult = 2
    TabOrder = 2
  end
end

						