开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
DragToGridForm.dfm
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

DragToGridForm.dfm：源码内容
  1. object FormDrag: TFormDrag
  2.   Left = 243
  3.   Top = 107
  4.   Width = 609
  5.   Height = 345
  6.   Caption = 'DragToGrid'
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   OldCreateOrder = False
  14.   PixelsPerInch = 96
  15.   TextHeight = 13
  16.   object LabelDrag: TLabel
  17.     Left = 24
  18.     Top = 16
  19.     Width = 314
  20.     Height = 13
  21.     Caption = 
  22.       'Enter a value in the edit and drag the label over the target gri' +
  23.       'd cell:'
  24.     DragMode = dmAutomatic
  25.   end
  26.   object DBGrid1: TDBGrid
  27.     Left = 24
  28.     Top = 56
  29.     Width = 553
  30.     Height = 225
  31.     DataSource = DataSource1
  32.     TabOrder = 0
  33.     TitleFont.Charset = DEFAULT_CHARSET
  34.     TitleFont.Color = clWindowText
  35.     TitleFont.Height = -11
  36.     TitleFont.Name = 'MS Sans Serif'
  37.     TitleFont.Style = []
  38.     OnDragDrop = DBGrid1DragDrop
  39.     OnDragOver = DBGrid1DragOver
  40.   end
  41.   object EditDrag: TEdit
  42.     Left = 24
  43.     Top = 32
  44.     Width = 313
  45.     Height = 21
  46.     Color = clWindow
  47.     TabOrder = 1
  48.     Text = 'New Value'
  49.   end
  50.   object DataSource1: TDataSource
  51.     DataSet = Table1
  52.     Left = 496
  53.     Top = 72
  54.   end
  55.   object Table1: TTable
  56.     Active = True
  57.     DatabaseName = 'DBDEMOS'
  58.     TableName = 'country.db'
  59.     Left = 496
  60.     Top = 16
  61.   end
  62. end