dbGrid Spalten verschieben verhindern

[Panschi]

Hallo,
Ich möchte verhindern, dass man die Spalten meines dbGrids verschieben kann! Eigentlich ist dafür die Option dgColumnResize da, jedoch möchte ich weiterhin erlauben, dass die Breite der Spalten verändert werden kann!
LG

[Bummi]

nicht hübsch, aber funktioniert

Delphi-Quellcode:

procedure TForm1.DBGrid1ColumnMoved(Sender: TObject; FromIndex, ToIndex: Integer);
begin
  TDBGrid(Sender).Columns[ToIndex].Index := FromIndex;
end;

[Panschi]

super, danke