点击或拖拽改变大小

DragDropServer.StartDrag 方法

X#
通知 GUI 拖放操作已开始。

命名空间：  VO
程序集：  VOGUIClasses (在 VOGUIClasses.dll 中) 版本：2.22 GA
语法
复制
 VIRTUAL METHOD StartDrag(
	acFilesToDrag
) AS USUAL CLIPPER
查看代码

参数

acFilesToDrag (Optional)
类型：__Usual
要拖动的文件的文件名数组。

返回值

类型：__Usual
如果拖放成功，则返回 TRUE；否则，返回 FALSE(例如，如果用户将文件放在非拖放操作客户端上)。
备注
当用户开始拖动操作时，通常是通过拖动鼠标。DragDropServer:StartDrag() 是模态的；一旦调用，只有在用户放下文件时，才会将控制返回给程序。
示例
下面的示例演示了如何使用 DragDropServer:StartDrag() 方法：
X#
复制
 1CLASS MyChildWindow INHERIT ChildAppWindow
 2    HIDDEN aDragList AS ARRAY
 3
 4    METHOD Init(oOwner) CLASS MyChildAppWindow
 5        SUPER:Init(oOwner)
 6        EnableDragDropServer(TRUE) // 将窗口设置为DragDropServer
 7
 8    METHOD MouseDrag(oEvent) CLASS MyChildWindow
 9        LOCAL ListLength AS INT
10        LOCAL lResult AS LOGIC
11        ListLength := ALen(aDragList)
12        // aDragList已经填充了文件名列表
13        IF ListLength > 0 // 如果有文件要拖动
14            lResult := SELF:DragDropServer:StartDrag(aDragList)
15        ENDIF
参见