untscrshow.dfm

经过研究本人初略的将原代码进行了模拟

object ShowScr: TShowScr
  Left = 325
  Top = 258
  Width = 579
  Height = 442
  Caption = 'ShowScr'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  PixelsPerInch = 96
  TextHeight = 12
  object sbx: TScrollBox
    Left = 0
    Top = 0
    Width = 571
    Height = 408
    Align = alClient
    BorderStyle = bsNone
    TabOrder = 0
    object imgShow: TImage
      Left = 3
      Top = 3
      Width = 278
      Height = 182
      ParentShowHint = False
      ShowHint = False
    end
    object pk: TPanel
      Left = 0
      Top = 0
      Width = 41
      Height = 25
      Color = clActiveCaption
      TabOrder = 0
      Visible = False
      object Memo1: TMemo
        Left = 8
        Top = 1
        Width = 32
        Height = 23
        Alignment = taCenter
        BevelInner = bvLowered
        BevelKind = bkFlat
        BevelOuter = bvRaised
        BorderStyle = bsNone
        Color = clNone
        Font.Charset = GB2312_CHARSET
        Font.Color = clWhite
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        MaxLength = 1
        ParentFont = False
        TabOrder = 0
      end
    end
  end
end