pntstp.dfm

来自「delphi框架可以学习, 写的很好的」· DFM 代码 · 共 99 行

object frmPntStp: TfrmPntStp
  Left = 229
  Top = 217
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #25171#21360#26426#35774#32622
  ClientHeight = 199
  ClientWidth = 300
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object Bevel1: TBevel
    Left = 12
    Top = 16
    Width = 273
    Height = 85
    Shape = bsFrame
  end
  object Label1: TLabel
    Left = 25
    Top = 54
    Width = 90
    Height = 12
    Caption = #20351#29992#25171#21360#26426#31867#22411':'
  end
  object PDBLookupCombobox1: TDBLookupComboboxEh
    Left = 116
    Top = 49
    Width = 157
    Height = 20
    AlwaysShowBorder = True
    AutoSize = False
    DropDownBox.Rows = 20
    EditButton.ShortCut = 0
    EditButton.Width = 14
    EditButtons = <>
    Flat = True
    KeyField = 'KEYFIELD'
    ListField = 'LISTFIELD'
    ListSource = dsPntType
    TabOrder = 0
    Visible = True
  end
  object BtnProperty: TBitBtn
    Left = 26
    Top = 134
    Width = 75
    Height = 25
    Hint = #26412#22320#25171#21360#26426#23646#24615
    Caption = #23646#24615
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnClick = BtnPropertyClick
  end
  object BtnOK: TBitBtn
    Left = 125
    Top = 134
    Width = 75
    Height = 25
    Caption = #30830' '#23450'(&O)'
    Default = True
    TabOrder = 2
  end
  object BtnCancel: TBitBtn
    Left = 209
    Top = 134
    Width = 75
    Height = 25
    Action = doClose
    Cancel = True
    Caption = #21462#28040'(&C)'
    TabOrder = 3
  end
  object cdsPntType: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 244
  end
  object dsPntType: TDataSource
    DataSet = cdsPntType
    Left = 216
  end
  object ActionList1: TActionList
    Left = 188
    object doClose: TAction
      Caption = #21462#28040'(&C)'
      ShortCut = 16471
      OnExecute = doCloseExecute
    end
  end
end