请问大家：怎样使dbgrid的列不能被拖动

Question

在程序中实现为去掉dgColumnResize～～DBGrid1.Option := (dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect);

Answer 1

同意楼上的。请参考 ：TCustomDBGrid.Options，可能还有一些你想要的。Specifies various display and behavioral properties of the data-aware grid.type
  TDBGridOption = (dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect);TDBGridOptions = set of TDBGridOption;property Options: TDBGridOptions;DescriptionSet Options to include the desired properties for the data-aware grid. Options is a set drawn from the following values:Value MeaningdgEditing The user can edit data using the grid. dgEditing is ignored if Options includes dgRowSelect.
dgAlwaysShowEditor  The grid is always in edit mode. That is, the user does not have to press Enter or F2 before editing the contents of a cell. dgAlwaysShowEditor does nothing unless dgEditing is also included in Options. dgAlwaysShowEditor is ignored if Options includes dgRowSelect.
dgTitles Titles appear at the top of the columns in the grid.
dgIndicator A small pointer appears in the first column to indicate which row is current.dgColumnResize Columns that are bound to fields can be resized or moved.
dgColLins Lines appear between columns in the grid.
dgRowLines Lines appear between the rows of the grid.
dgTabs The user can navigate through the grid using the Tab and Shift+Tab keys.
dgRowSelect The user can select an entire row, as well as selecting individual cells. If Options includes dgRowSelect, dgEditing and dgAlwaysShowEditor are ignored.
dgAlwaysShowSelection The selected cell displays the focus rectangle even when the grid does not have focus.dgConfirmDelete A message box appears, asking for confirmation, when the user types Ctrl+Delete to delete a row in the grid.
dgCancelOnExit When the user exits the grid from an inserted record to which the user made no modifications, the inserted record is not posted to the dataset. This prevents the inadvertent posting of empty records.
dgMultiSelect More than one row in the grid can be selected at a time.

Answer 2

dbgrid.option.dgcolumnresize:=false
同意“一两狂死郎之天衣有缝”

Answer 3

语句DBGird1.Options.dgColumnResize=False是可以实现dbgrid的列不能被拖动，
但是同时dbgrid的列宽度也不让调整，可以用以下语句：
tStringGrid(DbGrid1).Options:=tStringGrid(DbGrid1).Options-[goColMoving];

Answer 4

dbgrid.option.dgcolumnresize:=false在禁止列改变大小的同时又禁止了列的拖动
好像没有这种允许改变列的大小又禁止列的拖动的属性

Answer 5

OK,哈哈，tp168这个比较好，多谢
又学一招