TMlSkinDragFile

用法要点

• BindingControl 指定接受拖放的控件，不指定则作用于整个窗体。
• 文件拖进来时触发 OnDragFiles，事件参数里是文件列表。
• 拖入范围时会显示虚线高亮框和提示文字：TipText 是提示文字，两个 HighLightDotLine...Color 分别是普通和高亮时的线条颜色。

示例

摘自 Demo：MlSkin.Demo.文件拖放.v5.x（窗体文件 .dfm）

object mlskndrgfl1: TMlSkinDragFile
  BindingControl = shp1
  OnDragFiles = mlskndrgfl1DragFiles
  HighLightDotLineNormalColor = 1033457
  HighLightDotLineHotColor = 7457839
  TipText = 'Drag and drop files here'
  TipFont.Charset = DEFAULT_CHARSET
  TipFont.Color = 1033457
  TipFont.Height = -27
  TipFont.Name = 'Tahoma'
  TipFont.Style = [fsBold]
  Left = 408
  Top = 248
end

属性 5

名称	类型	默认值	说明
BindingControl	TWinControl	—	接受文件拖放的控件。不指定时作用于整个窗体。
HighLightDotLineNormalColor	TColor	$00A09FA1	拖放提示虚线框的普通颜色。
HighLightDotLineHotColor	TColor	$00CCBD43	文件拖到范围内时虚线框的高亮颜色。
TipText	string	—	拖放区域上显示的提示文字，例如「把文件拖到这里」。
TipFont	TFont	—	提示文字的字体。

事件 3

名称	类型	默认值	说明
OnDragEnter	TNotifyEvent	—	文件拖入范围时触发。
OnDragLeave	TNotifyEvent	—	文件拖出范围时触发。
OnDragFiles	TDragFilesEvent	—	文件放下时触发，事件参数里是拖进来的文件列表。

本页只列出 MlSkin 新增的属性和事件；Align、Anchors、Font、OnClick 等标准 VCL 属性同样可用，用法与原生控件一致。