5,388
社区成员
发帖
与我相关
我的任务
分享
qsRow,jsRow:Integer;//用于保存行位置
procedure TBase_f.cxGrid1DBTableView1StartDrag(Sender: TObject;
var DragObject: TDragObject);
begin
qsrow:=MainQuery.RecNo; //保存起始行位置
end;
procedure TBase_f.cxGrid1DBTableView1DragOver(Sender, Source: TObject;
X, Y: Integer; State: TDragState; var Accept: Boolean);
begin
Accept:=True;
end;
procedure TBase_f.cxGrid1DBTableView1EndDrag(Sender, Target: TObject;
X, Y: Integer);
begin
jsRow:=Main.RecNo;//结束行的位置
if qsrow=jsrow then Exit;//如果相同则直接退出
//设置临时变量保存记录内容,删除当前位置记录内容...进一步操作
end;