unitsroomopen.dfm

来自「自己做过的工程」· DFM 代码 · 共 80 行

object formsroomopen: Tformsroomopen
  Left = 214
  Top = 178
  BorderStyle = bsDialog
  Caption = #21253#38388#21551#29992
  ClientHeight = 190
  ClientWidth = 346
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 346
    Height = 190
    Align = alClient
    BorderStyle = bsSingle
    TabOrder = 0
    object Label2: TLabel
      Left = 28
      Top = 29
      Width = 160
      Height = 16
      Caption = #35831#36755#20837#35201#21551#29992#30340#21253#38388#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object but_ok: TButton
      Left = 59
      Top = 132
      Width = 71
      Height = 30
      Caption = #30830#23450
      Default = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = Button1Click
    end
    object but_cancel: TButton
      Left = 203
      Top = 132
      Width = 71
      Height = 30
      Caption = #21462#28040
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = Button2Click
    end
    object ed_sroomno: TEdit
      Left = 85
      Top = 70
      Width = 169
      Height = 21
      TabOrder = 2
    end
  end
end