mydialogfrm.dfm

来自「《delphi深度编程及其项目开发》」· DFM 代码 · 共 54 行

object frmDialog: TfrmDialog
  Left = 192
  Top = 107
  BorderStyle = bsDialog
  Caption = #36873#25321#30446#24405
  ClientHeight = 214
  ClientWidth = 206
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DirectoryListBox: TDirectoryListBox
    Left = 32
    Top = 56
    Width = 145
    Height = 97
    ItemHeight = 16
    TabOrder = 0
  end
  object DriveComboBox: TDriveComboBox
    Left = 32
    Top = 24
    Width = 145
    Height = 19
    DirList = DirectoryListBox
    TabOrder = 1
  end
  object btnOK: TBitBtn
    Left = 31
    Top = 165
    Width = 62
    Height = 25
    Caption = #30830#23450'(&O)'
    TabOrder = 2
    OnClick = btnOKClick
  end
  object btnCancel: TBitBtn
    Left = 113
    Top = 165
    Width = 62
    Height = 25
    Caption = #21462#28040'(&C)'
    TabOrder = 3
    OnClick = btnCancelClick
  end
end