Советы по Delphi. Версия 1.4.3 от 1.1.2001

var SGC : TGridCoord;

procedure TForm1.MyDBGrid1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var DG : TMyDBGrid;
begin
 DG := Sender as TMyDBGrid;
 SGC := DG.MouseCoord(X,Y);
 if (SGC.X > 0) and (SGC.Y > 0) then (Sender as TMyDBGrid).BeginDrag(False);
end;

procedure TForm1.MyDBGrid1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
var GC : TGridCoord;
begin
 GC := (Sender as TMyDBGrid).MouseCoord(X,Y);
 Accept := Source is TMyDBGrid and (GC.X > 0) and (GC.Y > 0);
end;

procedure TForm1.MyDBGrid1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
 DG : TMyDBGrid;
 GC : TGridCoord;
 CurRow : Integer;
begin
 DG := Sender as TMyDBGrid;
 GC := DG.MouseCoord(X,Y);
 with DG.DataSource.DataSet do begin
 with (Source as TMyDBGrid).DataSource.DataSet do
Caption := 'Вы перетащили «'+Fields[SGC.X-1].AsString+'"';
 DisableControls;
 CurRow := DG.Row;
 MoveBy(GC.Y-CurRow);
 Caption := Caption+' в «'+Fields[GC.X-1].AsString+'"';
 MoveBy(CurRow-GC.Y);
 EnableControls;
 end;
end;
end.

Форма GridU1

object Form1: TForm1
 Left = 200
 Top = 108
 Width = 544
 Height = 437
 Caption = 'Form1'
 Font.Charset = DEFAULT_CHARSET
 Font.Color = clWindowText
 Font.Height = -11
 Font.Name = 'MS Sans Serif'
 Font.Style = []
 PixelsPerInch = 96
 TextHeight = 13
 object MyDBGrid1: TMyDBGrid
 Left = 8
 Top = 8
 Width = 521
 Height = 193
 DataSource = DataSource1
 Row = 1
 TabOrder = 0
 TitleFont.Charset = DEFAULT_CHARSET
 TitleFont.Color = clWindowTextTitle
 Font.Height = -11
 TitleFont.Name = 'MS Sans Serif'
 TitleFont.Style = []
 OnDragDrop = MyDBGrid1DragDrop
 OnDragOver = MyDBGrid1DragOver
 OnMouseDown = MyDBGrid1MouseDown
 end
 object MyDBGrid2: TMyDBGrid
 Left = 7
 Top = 208
 Width = 521
 Height = 193
 DataSource = DataSource2
 Row = 1
 TabOrder = 1
 TitleFont.Charset = DEFAULT_CHARSET
 TitleFont.Color = clWindowText
 TitleFont.Height = -11
 TitleFont.Name = 'MS Sans Serif'
 TitleFont.Style = []
 OnDragDrop = MyDBGrid1DragDrop
 OnDragOver = MyDBGrid1DragOver
 OnMouseDown = MyDBGrid1MouseDown
 end
 object Table1: TTableActive = True
 DatabaseName = 'DBDEMOS'
 TableName = 'ORDERS'
 Left = 104
 Top = 48
 end
 object DataSource1: TDataSource
 DataSet = Table1
 Left = 136
 Top = 48
 end
 object Table2: TTable
 Active = True
 DatabaseName = 'DBDEMOS'
 TableName = 'CUSTOMER'
 Left = 104
 Top = 240
 end
 object DataSource2: TDataSource
 DataSet = Table2
 Left = 136
 Top = 240
 end
end

Как заставить DBGrid сортировать данные по щелчку на заголовке столбца?

Nomadic советует:

Кyсочек кода, чтобы повесить на clickable столбец RxGrid, показывающий RxQuery с определенным макросом %Order. Работать не бyдет (без модyлей), но в качестве идеи может быть полезен.

unit vgRXutil;

interface