unit1.dfm

来自「精彩编程百例26～50 其中有 控制任务栏 windows底层任务控制 屏保预览」· DFM 代码 · 共 112 行

object Form1: TForm1
  Left = 224
  Top = 227
  Width = 322
  Height = 349
  Caption = 'Windows'#24213#23618#20219#21153#25511#21046
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 48
    Top = 56
    Width = 85
    Height = 25
    Caption = #38544#34255#20219#21153#26639
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 184
    Top = 56
    Width = 85
    Height = 25
    Caption = #26174#31034#20219#21153#26639
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 48
    Top = 120
    Width = 85
    Height = 25
    Caption = #38544#34255#40736#26631
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 184
    Top = 120
    Width = 85
    Height = 25
    Caption = #26174#31034#40736#26631
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 48
    Top = 184
    Width = 85
    Height = 25
    Caption = #26368#23567#21270#31383#20307
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 184
    Top = 184
    Width = 85
    Height = 25
    Caption = #38544#34255#23567#22270#26631
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    OnClick = Button6Click
  end
  object btnExit: TBitBtn
    Left = 122
    Top = 268
    Width = 75
    Height = 25
    Caption = #36864#20986
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 6
    OnClick = btnExitClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
      03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
      0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
      0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
      0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
      0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
      0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
      0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
      0333337F777FFFFF7F3333000000000003333377777777777333}
    NumGlyphs = 2
  end
end