VPF::Drag & Drop в DBGrid - Форум программистов

Mihas

Дата 10.3.2009, 17:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 10.3.2009
Где: г. Киев, Украина

Репутация: нет
Всего: нет

Мне необходимо менять порядок следования записей в DBGrid т.е. перетаскивать строки мышкой выше или ниже. Кто-нибудь знает как это сделать? Спасибо.
Paradox, BDE

Mihas

Дата 15.3.2009, 11:59 (ссылка)

(нет голосов)

Загрузка ...

Я опробовал код, который предложил когда-то Vit:

Код


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.

У меня копируются пустые строки. Что я делаю не так? Спасибо.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »