كيف استعمل خاصية السحب والفلت في جدول ؟

[hanipino]

السلام عليكم
اذا كنت تعمل ب DBGrid العادى :

PHP كود :

var
  Form1: TForm1;
  S : string; 


PHP كود :

procedure TForm1.dbgrd1CellClick(Column: TColumn);
begin
 S := Column.Field.AsString;
end; 


PHP كود :

procedure TForm1.dbgrd1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
   Accept := Source is TDBGrid;
end; 


PHP كود :

procedure TForm1.dbgrd1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (ssleft in Shift)then
  dbgrd1.BeginDrag(True,-1);
end; 


PHP كود :

procedure TForm1.dbgrd1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  tbl1.MoveBy(dbgrd1.MouseCoord(X,Y).Y - ds1.DataSet.RecNo);
  try
   tbl1.Edit;
   tbl1.Fields[dbgrd1.MouseCoord(X,Y).X - 1].AsString := S;
   tbl1.Post;
  except
   MessageBox(0,'(^;^)','UP',0);
  end;
end;