delphi – 在VirtualTreeView中更改拖动光标
发布时间:2020-12-15 09:18:15 所属栏目:大数据 来源:网络整理
导读:使用VirtualTreeView时,默认情况下拖动操作是[doCopy,doMove].移动操作由带有小方框的箭头指针指示,复制操作由相同的指针图标指示,但旁边添加了[]. 默认情况下,VT使用复制操作,如果按下修改键(SHIFT键),它会修改操作以移动,从而从指针中删除[]. 这就是我需要
使用VirtualTreeView时,默认情况下拖动操作是[doCopy,doMove].移动操作由带有小方框的箭头指针指示,复制操作由相同的指针图标指示,但旁边添加了[].
默认情况下,VT使用复制操作,如果按下修改键(SHIFT键),它会修改操作以移动,从而从指针中删除[]. 这就是我需要的: >反转操作(默认是移动,按下修改键 – 复制),因此反向指针箭头 任何指向正确方向的指标都值得赞赏. 解决方法
除了更改修饰符之外,您应该在OnDragOver事件处理程序中更改您将要执行的操作.因此,要将CTRL键添加为复制操作修饰符,您可以编写如下内容.此事件中设置的效果参数值也会更改拖动光标,具体取决于所选操作.除了传递给OnDragDrop事件的值,您可以根据该事件确定如何处理已删除的源:
procedure TForm1.VirtualStringTree1DragOver(Sender: TBaseVirtualTree; Source: TObject; Shift: TShiftState; State: TDragState; Pt: TPoint; Mode: TDropMode; var Effect: Integer; var Accept: Boolean); begin Accept := True; if Shift = [ssCtrl] then Effect := DROPEFFECT_COPY; end; 在OnDragDrop事件处理程序中,您可以确定使用的效果: procedure TForm1.VirtualStringTree1DragDrop(Sender: TBaseVirtualTree; Source: TObject; DataObject: IDataObject; Formats: TFormatArray; Shift: TShiftState; Pt: TPoint; var Effect: Integer; Mode: TDropMode); begin case Effect of DROPEFFECT_COPY: ShowMessage('DROPEFFECT_COPY'); DROPEFFECT_MOVE: ShowMessage('DROPEFFECT_MOVE'); end; end; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |