unit1.dfm

DELPHI7编程。 无鼠标焦点时自动向上滑动

object Form1: TForm1
  Left = 227
  Top = 188
  BorderStyle = bsNone
  Caption = 'Form1'
  ClientHeight = 101
  ClientWidth = 440
  Color = 15584685
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  OnMouseMove = FormMouseMove
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 128
    Top = 16
    Width = 216
    Height = 26
    Caption = #38463#32993#24037#20316#23460#33635#35465#20986#21697
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = #21326#25991#32454#40657
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 176
    Top = 48
    Width = 116
    Height = 13
    Caption = '[e-mail]'
    Color = 310779
    ParentColor = False
  end
  object Button1: TButton
    Left = 200
    Top = 72
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 0
    OnClick = Button1Click
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 2
    OnTimer = Timer1Timer
    Left = 8
    Top = 16
  end
  object Timer2: TTimer
    Enabled = False
    Interval = 2
    OnTimer = Timer2Timer
    Left = 48
    Top = 16
  end
  object Timer3: TTimer
    Interval = 300
    OnTimer = Timer3Timer
    Left = 88
    Top = 16
  end
end