Подскажите мне ПЛЗ как перетаскивать айтемы из одной таблы в другую с удалениями из одной таблы, добавления в другую и т.д
Пасибо!

А кто такой "табл"?

Таблица это!

Ничего из компонента TTable нельзя перетащить по определению, так как это не визуальный компонент и не потомок от TControl.

Или имеется ввиду не перетаскивание мышкой, а перенос информации из одной таблицы в другую каких-то записей отвечающих каким-то критериям?

Не TTable, а StrinGrid или DBGrid

Например на форме находятся 2 таблицы (TTable) с ними связаны 2 компонента TDataSource, c TDataSource связано 2 сетки (TDBGrid). Вот мой код для такскания записей из первого грида во второй:

Код

unit Unit1; interface uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  Grids, DBGrids, Db, DBTables; type  TForm1 = class(TForm)    Table1: TTable;    DataSource1: TDataSource;    DBGrid1: TDBGrid;    Table2: TTable;    DataSource2: TDataSource;    DBGrid2: TDBGrid;    procedure DBGrid2DragOver(Sender, Source: TObject; X, Y: Integer;      State: TDragState; var Accept: Boolean);    procedure DBGrid2DragDrop(Sender, Source: TObject; X, Y: Integer);    procedure DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,      Y: Integer);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.DFM} procedure TForm1.DBGrid2DragOver(Sender, Source: TObject; X, Y: Integer;  State: TDragState; var Accept: Boolean); begin  accept:=Source is TDBGrid; end; procedure TForm1.DBGrid2DragDrop(Sender, Source: TObject; X, Y: Integer);  var SourceTable, TargetTable:TTable;      i:integer; begin  if Source is TDBGrid then    begin      TargetTable:=(sender as TDBGrid).DataSource.DataSet as TTable;      SourceTable:=(Source as TDBGrid).DataSource.DataSet as TTable;      TargetTable.append;      For i:=0 to SourceTable.Fields.count-1 do        TargetTable.fields[i].assign(SourceTable.fields[i]);      TargetTable.post;    end; end; procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer); begin  if ssLeft in Shift then DBGrid1.BeginDrag(True, 10); end; end.

Пасибо!

А если перетаскивать из одной таблы и бросать на TreeView, после чего айтем появится  во второй табле?

Я в твоём примере покопался и сделал то же самое и для второй таблы(т.е. перетаскивание из 1 во 2 и из 2 в 1) но тогда в одну из табл приходят пустые ячейки.


unit GrugDrup;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, DBGrids, Db, DBTables;

type
TForm1 = class(TForm)
   DataSource1: TDataSource;
   DBGrid1: TDBGrid;
   Table1: TTable;
   Table2: TTable;
   DataSource2: TDataSource;
   DBGrid2: TDBGrid;
  procedure DBGrid2DragOver(Sender, Source: TObject; X, Y: Integer;
    State: TDragState; var Accept: Boolean);
  procedure DBGrid2DragDrop(Sender, Source: TObject; X, Y: Integer);
  procedure DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
    Y: Integer);
   procedure DBGrid1DragDrop(Sender, Source: TObject; X, Y: Integer);
   procedure DBGrid1DragOver(Sender, Source: TObject; X, Y: Integer;
     State: TDragState; var Accept: Boolean);
   procedure DBGrid2MouseMove(Sender: TObject; Shift: TShiftState; X,
     Y: Integer);
private
  { Private declarations }
public
  { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

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

procedure TForm1.DBGrid2DragDrop(Sender, Source: TObject; X, Y: Integer);
var SourceTable, TargetTable:TTable;
    i:integer;
begin
if Source is TDBGrid then
  begin
    TargetTable:=(sender as TDBGrid).DataSource.DataSet as TTable;
    SourceTable:=(Source as TDBGrid).DataSource.DataSet as TTable;
    TargetTable.append;
    For i:=0 to SourceTable.Fields.count-1 do
      TargetTable.fields[i].assign(SourceTable.fields[i]);
    TargetTable.post;
  end;
end;

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ssLeft in Shift then DBGrid1.BeginDrag(True, 10);
end;

procedure TForm1.DBGrid1DragDrop(Sender, Source: TObject; X, Y: Integer);
var SourceTable, TargetTable:TTable;
    i:integer;
begin
if Source is TDBGrid then
  begin
    TargetTable:=(sender as TDBGrid).DataSource.DataSet as TTable;
    SourceTable:=(Source as TDBGrid).DataSource.DataSet as TTable;
    TargetTable.append;
    For i:=0 to SourceTable.Fields.count-1 do
      TargetTable.fields[i].assign(SourceTable.fields[i]);
    TargetTable.post;
  end;
end;

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

procedure TForm1.DBGrid2MouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);
begin
if ssLeft in Shift then DBGrid1.BeginDrag(True, 10);
end;

end.

Слушай, я не знаю, у тебя в обработчике

DBGridxDragDrop(Sender, Source: TObject; X, Y: Integer);

Sender - объект на который что-то перетаскивают
Source - объект из которого что-то перетаскивают

А сделать конкретную обработку действий с объектами это уже дело техники.