object DirBox: TDirBox Left = 421 Top = 372 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = '�t�H���_�̎w��' ClientHeight = 220 ClientWidth = 234 Font.Color = clWindowText Font.Height = -12 Font.Name = '�l�r �o�S�V�b�N' Font.Style = [] Icon.Data = {} PixelsPerInch = 96 TextHeight = 12 object Label1: TLabel Left = 16 Top = 8 Width = 197 Height = 12 Caption = '�f�[�^�y�ѐݒ��ۑ�����t�H���_' Font.Color = clBlack Font.Height = -12 Font.Name = '�l�r �o�S�V�b�N' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 24 Top = 24 Width = 117 Height = 12 Caption = 'C:\DELPHI\HUSEN320' WordWrap = True end object DriveComboBox1: TDriveComboBox Left = 24 Top = 56 Width = 185 Height = 18 TabOrder = 0 TextCase = tcUpperCase OnChange = DriveComboBox1Change end object DirectoryListBox1: TDirectoryListBox Left = 24 Top = 80 Width = 185 Height = 81 DirLabel = Label2 ItemHeight = 16 TabOrder = 1 end object btnOk: TButton Left = 24 Top = 176 Width = 57 Height = 33 Caption = '�n�@�j' Default = True TabOrder = 2 OnClick = btnOkClick end object btnCancel: TButton Left = 88 Top = 176 Width = 57 Height = 33 Cancel = True Caption = '��ݾ�' TabOrder = 3 OnClick = btnCancelClick end object btnDef: TButton Left = 152 Top = 176 Width = 57 Height = 33 Caption = '��̫��' TabOrder = 4 OnClick = btnDefClick end end