getscreen.~dfm

来自「一个远程监控程序」· ~DFM 代码 · 共 50 行

object frmgetscreen: Tfrmgetscreen
  Left = 376
  Top = 193
  Width = 247
  Height = 215
  Caption = 'frmgetscreen'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 0
    Top = 0
    Width = 239
    Height = 188
    Align = alTop
    AutoSize = True
    Center = True
    IncrementalDisplay = True
    PopupMenu = PopupMenu1
    Proportional = True
    Transparent = True
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 72
    Top = 32
  end
  object PopupMenu1: TPopupMenu
    Left = 104
    Top = 32
    object A1: TMenuItem
      Caption = #20840#23631'[&A]'
      OnClick = A1Click
    end
    object X1: TMenuItem
      Caption = #36864#20986'[&X]'
      OnClick = X1Click
    end
  end
end