如何锁定DBGrid的某列不移动？

Question

把与dbgrid相连的table1.DisableControls; 

Answer 1

procedure TForm1.DBGrid1ColumnMoved(Sender: TObject; FromIndex,
  ToIndex: Integer);
begin
  with TDBGrid(Sender) do if Columns[ToIndex].FieldName = '字段名' then
    Columns[ToIndex].Index := FromIndex;
end;

Answer 2

难到真的要用第三方件吗？
请问Grid是通过什么消息，感知其列移动的？

Answer 3

奇怪的要求..........enabled:=false 不是能不能满足你

Answer 4

  TstringGrid(DbGrid1).FixCols=n ,n为左边不可移动的列数
  但此方法固定COLS,不能处理好列标题.需用'欺骗用户的眼睛'的
方法,使列标题显示正确.  :-Q  
   如果不用列标题效果还行. 

Answer 5

zswang(zs)　的方法不行如果不用第三方
那或者用TstringGrid的控件可以

Answer 6

to navy(navy)　:
用列标题没有什么问题呀

Answer 7

cby：
  你移动滚动条，就会发现有问题，但如果没滚动条，那
  既然搞定，给分吧！