unit1.~dfm

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

object Form1: TForm1
  Left = 224
  Top = 227
  Width = 341
  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 = 75
    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 = 75
    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 = 75
    Height = 25
    Caption = #38544#34255#40736#26631
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 184
    Top = 120
    Width = 75
    Height = 25
    Caption = #26174#31034#40736#26631
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 48
    Top = 184
    Width = 75
    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 = 75
    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
    Kind = bkClose
  end
end