testmain.dfm

这是一个间歇的小唾弃,希望大家希望,以后大家多学习,多多交流共同进步!

object frmMain: TfrmMain
  Left = 222
  Top = 245
  BorderIcons = [biSystemMenu]
  BorderStyle = bsToolWindow
  Caption = '简易文件操作系统'
  ClientHeight = 310
  ClientWidth = 509
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object lbInfo: TLabel
    Left = 97
    Top = 295
    Width = 6
    Height = 12
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label1: TLabel
    Left = 7
    Top = 296
    Width = 84
    Height = 13
    Caption = '文件名及路径：'
  end
  object DriveComboBox: TDriveComboBox
    Left = 0
    Top = 0
    Width = 209
    Height = 19
    TabOrder = 0
    OnChange = DriveComboBoxChange
  end
  object DirectoryListBox: TDirectoryListBox
    Left = 0
    Top = 24
    Width = 209
    Height = 265
    ItemHeight = 16
    TabOrder = 1
    OnChange = DirectoryListBoxChange
  end
  object FileListBox: TFileListBox
    Left = 216
    Top = 0
    Width = 289
    Height = 289
    ItemHeight = 13
    PopupMenu = PopupMenu1
    TabOrder = 2
    OnChange = FileListBoxChange
    OnDblClick = FileListBoxDblClick
  end
  object MainMenu1: TMainMenu
    Left = 136
    Top = 152
    object N1: TMenuItem
      Caption = '文件'
      object popCopyFile: TMenuItem
        AutoHotkeys = maManual
        Caption = '复制'
        OnClick = CopyFClick
      end
      object popDeleteFile: TMenuItem
        AutoHotkeys = maManual
        Caption = '删除'
        OnClick = DeleteFClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object popReNameFile: TMenuItem
        AutoHotkeys = maManual
        Caption = '重命名'
        OnClick = ReNameFClick
      end
      object popAttributeFile: TMenuItem
        AutoHotkeys = maManual
        Caption = '属性'
        OnClick = AttributeFClick
      end
    end
  end
  object PopupMenu1: TPopupMenu
    Tag = 1
    Left = 64
    Top = 120
    object CopyF: TMenuItem
      AutoHotkeys = maManual
      Caption = '复制'
      OnClick = CopyFClick
    end
    object DeleteF: TMenuItem
      Caption = '删除'
      OnClick = DeleteFClick
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object ReNameF: TMenuItem
      Caption = '重命名'
      OnClick = ReNameFClick
    end
    object AttributeF: TMenuItem
      Caption = '属性'
      OnClick = AttributeFClick
    end
  end
end