Delphi控件源码

开发平台：

Delphi

CopyScreenFrm.dfm：源码内容

							object CopyScreenForm: TCopyScreenForm
  Left = 282
  Top = 193
  BorderStyle = bsNone
  Caption = 'CopyScreenForm'
  ClientHeight = 368
  ClientWidth = 534
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsStayOnTop
  KeyPreview = True
  OldCreateOrder = False
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object ImgScreen: TImage
    Left = 0
    Top = 0
    Width = 534
    Height = 368
    Cursor = crCross
    Align = alClient
    OnDblClick = ImgScreenDblClick
    OnMouseDown = ImgScreenMouseDown
    OnMouseMove = ImgScreenMouseMove
    OnMouseUp = ImgScreenMouseUp
  end
  object PnlInfo: TPanel
    Left = 8
    Top = 8
    Width = 249
    Height = 99
    BevelInner = bvRaised
    Color = 16776176
    TabOrder = 0
    OnMouseMove = PnlInfoMouseMove
    object LblRGB: TLabel
      Left = 8
      Top = 8
      Width = 180
      Height = 12
      Caption = #24403#21069#20687#32032'RGB'#20540#65288'255'#12289'255'#12289'255'#65289
      OnMouseMove = PnlInfoMouseMove
    end
    object LblActionInfo: TLabel
      Left = 8
      Top = 32
      Width = 168
      Height = 12
      Caption = #25353#20303#40736#26631#24038#38190#19981#25918#36873#25321#25130#21462#33539#22260
      OnMouseMove = PnlInfoMouseMove
    end
    object LblCancelInfo: TLabel
      Left = 8
      Top = 56
      Width = 84
      Height = 12
      Caption = #25353#40736#26631#21491#38190#36864#20986
      OnMouseMove = PnlInfoMouseMove
    end
    object Label1: TLabel
      Left = 8
      Top = 80
      Width = 66
      Height = 12
      Caption = #25353'ESC'#38190#36864#20986
      OnMouseMove = PnlInfoMouseMove
    end
  end
  object ApplicationEvents1: TApplicationEvents
    OnMessage = ApplicationEvents1Message
    Left = 208
    Top = 8
  end
end

						