main.dfm

来自「Drag files and Drop to delphi forms 0402」· DFM 代码 · 共 141 行

object FormMain: TFormMain
  Left = 269
  Top = 106
  AutoScroll = False
  Caption = 'TDataFormatAdapter demo'
  ClientHeight = 306
  ClientWidth = 518
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefaultPosOnly
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 518
    Height = 57
    Align = alTop
    BevelOuter = bvNone
    BorderWidth = 2
    Caption = ' '
    TabOrder = 0
    object Label1: TLabel
      Left = 2
      Top = 2
      Width = 514
      Height = 53
      Align = alClient
      AutoSize = False
      Caption = 
        'This application demonstrates how to use the TDataFormatAdapter ' +
        'component to extend existing drop target (or source) components ' +
        'with support for additional data formats.'
      WordWrap = True
    end
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 57
    Width = 518
    Height = 72
    Align = alTop
    Caption = ' Text '
    TabOrder = 1
    object MemoText: TMemo
      Left = 2
      Top = 15
      Width = 514
      Height = 55
      Align = alClient
      BorderStyle = bsNone
      ParentColor = True
      TabOrder = 0
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 201
    Width = 518
    Height = 72
    Align = alTop
    Caption = ' URLs '
    TabOrder = 2
    object MemoURL: TMemo
      Left = 2
      Top = 15
      Width = 514
      Height = 55
      Align = alClient
      BorderStyle = bsNone
      ParentColor = True
      TabOrder = 0
    end
  end
  object GroupBox3: TGroupBox
    Left = 0
    Top = 129
    Width = 518
    Height = 72
    Align = alTop
    Caption = ' Files '
    TabOrder = 3
    object MemoFile: TMemo
      Left = 2
      Top = 15
      Width = 514
      Height = 55
      Align = alClient
      BorderStyle = bsNone
      ParentColor = True
      TabOrder = 0
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 273
    Width = 518
    Height = 33
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 4
    Caption = 'Drop text, files or URLs anywhere within this window.'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
  end
  object DropTextTarget1: TDropTextTarget
    Dragtypes = [dtCopy, dtLink]
    GetDataOnEnter = False
    OnDrop = DropTextTarget1Drop
    ShowImage = True
    Target = Owner
    AllowAsyncTransfer = False
    Left = 24
    Top = 32
  end
  object DataFormatAdapterFile: TDataFormatAdapter
    DragDropComponent = DropTextTarget1
    DataFormatName = 'TFileDataFormat'
    Enabled = True
    Left = 76
    Top = 32
  end
  object DataFormatAdapterURL: TDataFormatAdapter
    DragDropComponent = DropTextTarget1
    DataFormatName = 'TURLDataFormat'
    Enabled = True
    Left = 116
    Top = 32
  end
end