老问题。老鸟随便给点意见就有分！

Question

DBGrid控件的拖放小问题。在同一个控件内。两行之间的拖动。下面的代码如何改动一下？
procedure TMainForm.TableGridDragDrop(Sender, Source: TObject; X,
  Y: Integer);
  var
        Src,Des:string;
begin
        if ( Sender is TDBGrid ) and ( Source is TDBGrid) then
        begin
                Src:=( Source as TDBGrid ).SelectedRows.Items[0];
                Des:=( Sender as TDBGrid ).SelectedRows.Items[0];
                MessageDlg('Drag from '+Src+' to '+Des,mtInformation,[mbOK],0);
        end;
end;procedure TMainForm.TableGridDragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
        Accept:=Source is TDBGrid;
end;

Answer 1

KAO!这技术区的老鸟都哪去了啊？怎么只对‘有没有女朋友’的问题关心。偶也是个光杆儿啊！给点技术的信息啊！

Answer 2

dragmode 要为dmAutomatic不过你如果用TDBGrid，那就没办法改两行间的位置了，
TDBGrid中的各行的位置邮相关的TDAtaSet决定，而如果改变TDataset中两条纪录
间的顺序，只有两种办法，改变这两行在数据库重存放的顺序或该排序属性。

Answer 3

不要用Tdbgrid,用tdbgrideh 吧，功能比较完善

Answer 4

拜托，给个地址啊。偶没有那东东。郁闷ING。