unit1.dfm

是和Delphi 编程精选集锦书本配套的源码

object Form1: TForm1
  Left = 108
  Top = 64
  BorderStyle = bsSingle
  Caption = '屏保设置演示程序'
  ClientHeight = 291
  ClientWidth = 452
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 11
    Top = 4
    Width = 261
    Height = 20
    Caption = '输入新密码：(Input_New_Password)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 11
    Top = 49
    Width = 240
    Height = 20
    Caption = '输入新时间间隔：(Input_Minutes)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 11
    Top = 98
    Width = 398
    Height = 20
    Caption = '输入新屏保程序文件名（屏保文件名应遵循8 . 3规则）：'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 11
    Top = 164
    Width = 309
    Height = 20
    Caption = '输入临时文件名：(Input_Temp_File_Name)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 13
    Top = 117
    Width = 228
    Height = 20
    Caption = '(Input_ScreenSave_File_Name)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Button1: TButton
    Left = 350
    Top = 223
    Width = 98
    Height = 29
    Caption = '确   定'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = Button1Click
  end
  object Edit1: TEdit
    Left = 146
    Top = 25
    Width = 222
    Height = 21
    TabOrder = 1
    Text = '1234'
  end
  object SpinEdit1: TSpinEdit
    Left = 146
    Top = 72
    Width = 222
    Height = 22
    MaxValue = 100
    MinValue = 1
    TabOrder = 2
    Value = 1
  end
  object Edit3: TEdit
    Left = 146
    Top = 138
    Width = 222
    Height = 21
    TabOrder = 3
    Text = 'c:\windows\system\三维飞~1.scr'
  end
  object Edit4: TEdit
    Left = 11
    Top = 189
    Width = 342
    Height = 21
    ReadOnly = True
    TabOrder = 4
  end
  object RadioGroup1: TRadioGroup
    Left = 11
    Top = 212
    Width = 283
    Height = 75
    Caption = '进入或退出主程序'
    Columns = 2
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemIndex = 1
    Items.Strings = (
      'Open'
      'Close')
    ParentFont = False
    TabOrder = 5
    OnClick = RadioGroup1Click
  end
  object Button2: TButton
    Left = 350
    Top = 254
    Width = 98
    Height = 29
    Caption = '退   出'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 355
    Top = 183
    Width = 89
    Height = 31
    Caption = '选择文件'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    OnClick = Button3Click
  end
  object OpenDialog1: TOpenDialog
    Left = 320
    Top = 136
  end
end