activeformimpl1.~dfm

Delphi在线截图控件。包括源代码。有演示、仅供学习用

object ActiveFormX: TActiveFormX
  Left = 221
  Top = 253
  Width = 378
  Height = 171
  AxBorderStyle = afbNone
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object img1: TImage
    Left = 64
    Top = 40
    Width = 89
    Height = 41
    Visible = False
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 370
    Height = 33
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        Width = 366
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 353
      Height = 25
      Caption = 'ToolBar1'
      TabOrder = 0
      object ToolButton1: TToolButton
        Left = 0
        Top = 2
        DropdownMenu = PopupMenu1
        ImageIndex = 0
        Style = tbsDropDown
        OnClick = ToolButton1Click
      end
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 176
    Top = 64
    object N1: TMenuItem
      Caption = #26222#36890#25130#23631
      OnClick = N1Click
    end
    object Window1: TMenuItem
      Caption = 'Window'#25130#23631
      OnClick = Window1Click
    end
    object N2: TMenuItem
      Caption = #36719#20214#21306#22495#25130#23631
      OnClick = N2Click
    end
  end
end