unitpopup.dfm

不错的远程控制程序

object Popup: TPopup
  Left = 354
  Top = 496
  AlphaBlend = True
  AlphaBlendValue = 225
  BorderIcons = []
  BorderStyle = bsNone
  Caption = 'Rejoice V3.1'
  ClientHeight = 86
  ClientWidth = 192
  Color = clCaptionText
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefault
  OnShow = FormShow
  DesignSize = (
    192
    86)
  PixelsPerInch = 96
  TextHeight = 13
  object Shape1: TShape
    Left = 0
    Top = 0
    Width = 192
    Height = 86
    Align = alClient
    Pen.Color = clNavy
    Pen.Width = 3
  end
  object Label1: TLabel
    Left = 3
    Top = 17
    Width = 186
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = #20027#26426#22320#22336': 555.555.555.555'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Close1: TLabel
    Left = 180
    Top = 4
    Width = 6
    Height = 13
    Alignment = taCenter
    Anchors = []
    Caption = 'x'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    Transparent = True
    OnClick = Close1Click
  end
  object Label2: TLabel
    Left = 6
    Top = 33
    Width = 179
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = #35745#31639#26426#21517':'#31995#32479': 2K'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 3000
    OnTimer = Timer1Timer
    Left = 160
    Top = 96
  end
end