unit1.dfm

精彩编程百例26～50 其中有 控制任务栏 windows底层任务控制 屏保预览 特效窗体 文件关联操作等待！

object Form1: TForm1
  Left = 297
  Top = 125
  Width = 538
  Height = 489
  Caption = #22270#29255#27983#35272#24037#20855
  Color = clMoneyGreen
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 8
    Top = 216
    Width = 513
    Height = 217
  end
  object FileListBox1: TFileListBox
    Left = 280
    Top = 40
    Width = 193
    Height = 145
    FileType = [ftDirectory, ftArchive, ftNormal]
    ItemHeight = 13
    Mask = '*.bmp;*.jpg'
    TabOrder = 0
    OnClick = FileListBox1Click
  end
  object DirectoryListBox1: TDirectoryListBox
    Left = 72
    Top = 32
    Width = 145
    Height = 153
    FileList = FileListBox1
    ItemHeight = 16
    TabOrder = 1
    OnChange = DirectoryListBox1Change
  end
  object DriveComboBox1: TDriveComboBox
    Left = 72
    Top = 16
    Width = 145
    Height = 19
    DirList = DirectoryListBox1
    TabOrder = 2
    OnChange = DriveComboBox1Change
  end
  object Panel2: TPanel
    Left = 16
    Top = 328
    Width = 113
    Height = 97
    BevelInner = bvLowered
    BevelOuter = bvLowered
    BorderStyle = bsSingle
    Caption = 'Panel2'
    TabOrder = 3
    object Image2: TImage
      Left = 2
      Top = 2
      Width = 105
      Height = 89
      Hint = #28857#20987#26597#30475#21407#22270
      Align = alClient
      ParentShowHint = False
      Proportional = True
      ShowHint = True
      OnClick = Image2Click
    end
  end
  object Panel3: TPanel
    Left = 144
    Top = 224
    Width = 113
    Height = 97
    BevelInner = bvLowered
    BevelOuter = bvLowered
    BorderStyle = bsSingle
    Caption = 'Panel3'
    TabOrder = 4
    object Image3: TImage
      Left = 2
      Top = 2
      Width = 105
      Height = 89
      Hint = #28857#20987#26597#30475#21407#22270
      Align = alClient
      ParentShowHint = False
      Proportional = True
      ShowHint = True
      OnClick = Image3Click
    end
  end
  object Panel4: TPanel
    Left = 144
    Top = 328
    Width = 113
    Height = 97
    BevelInner = bvLowered
    BevelOuter = bvLowered
    BorderStyle = bsSingle
    Caption = 'Panel4'
    TabOrder = 5
    object Image4: TImage
      Left = 2
      Top = 2
      Width = 105
      Height = 89
      Hint = #28857#20987#26597#30475#21407#22270
      Align = alClient
      ParentShowHint = False
      Proportional = True
      ShowHint = True
      OnClick = Image4Click
    end
  end
  object Panel5: TPanel
    Left = 272
    Top = 224
    Width = 113
    Height = 97
    BevelInner = bvLowered
    BevelOuter = bvLowered
    BorderStyle = bsSingle
    Caption = 'Panel5'
    TabOrder = 6
    object Image5: TImage
      Left = 2
      Top = 2
      Width = 105
      Height = 89
      Hint = #28857#20987#26597#30475#21407#22270
      Align = alClient
      ParentShowHint = False
      Proportional = True
      ShowHint = True
      OnClick = Image5Click
    end
  end
  object Panel6: TPanel
    Left = 272
    Top = 328
    Width = 113
    Height = 97
    BevelInner = bvLowered
    BevelOuter = bvLowered
    BorderStyle = bsSingle
    Caption = 'Panel6'
    TabOrder = 7
    object Image6: TImage
      Left = 2
      Top = 2
      Width = 105
      Height = 89
      Hint = #28857#20987#26597#30475#21407#22270
      Align = alClient
      ParentShowHint = False
      Proportional = True
      ShowHint = True
      OnClick = Image6Click
    end
  end
  object Panel7: TPanel
    Left = 400
    Top = 224
    Width = 113
    Height = 97
    BevelInner = bvLowered
    BevelOuter = bvLowered
    BorderStyle = bsSingle
    Caption = 'Panel7'
    TabOrder = 8
    object Image7: TImage
      Left = 2
      Top = 2
      Width = 105
      Height = 89
      Hint = #28857#20987#26597#30475#21407#22270
      Align = alClient
      ParentShowHint = False
      Proportional = True
      ShowHint = True
      OnClick = Image7Click
    end
  end
  object Panel8: TPanel
    Left = 400
    Top = 328
    Width = 113
    Height = 97
    BevelInner = bvLowered
    BevelOuter = bvLowered
    BorderStyle = bsSingle
    Caption = 'Panel8'
    TabOrder = 9
    object Image8: TImage
      Left = 2
      Top = 2
      Width = 105
      Height = 89
      Hint = #28857#20987#26597#30475#21407#22270
      Align = alClient
      ParentShowHint = False
      Proportional = True
      ShowHint = True
      OnClick = Image8Click
    end
  end
  object FilterComboBox1: TFilterComboBox
    Left = 280
    Top = 16
    Width = 193
    Height = 21
    FileList = FileListBox1
    Filter = 
      'Picture Files(*.bmp;*.jpg)|*.bmp;*.jpg|Bmp Files(*.bmp)|*.bmp|Jp' +
      'g Files(*.jpg)|*.jpg'
    TabOrder = 10
  end
  object Panel1: TPanel
    Left = 16
    Top = 224
    Width = 113
    Height = 97
    BevelInner = bvLowered
    BevelOuter = bvLowered
    BorderStyle = bsSingle
    Caption = 'Panel1'
    TabOrder = 11
    object Image1: TImage
      Left = 2
      Top = 2
      Width = 105
      Height = 89
      Hint = #28857#20987#26597#30475#21407#22270
      Align = alClient
      ParentShowHint = False
      Proportional = True
      ShowHint = True
      OnClick = Image1Click
    end
  end
  object MainMenu1: TMainMenu
    Left = 32
    Top = 40
    object N1: TMenuItem
      Caption = '&Option'
      object N2: TMenuItem
        Caption = '&Exit'
        OnClick = N2Click
      end
    end
  end
end