请教各位大大: 
如何在使用上.下,左,右或enter键,mouse时, 让游标都始终不能进入dbgrid的最左边的栏位?
因为这是个序号栏位,录入数据时没必要把游标进入到这个栏位中去,这样可以节约时间
不胜感激!

編輯記錄

最快的方法就是把該Column的Visible屬性設為False
dbgrid1.Columns[0].Visible := False;

===================引 用 luowy651 文 章===================
请教各位大大:
如何在使用上.下,左,右或enter键,mouse时, 让游标都始终不能进入dbgrid的最左边的栏位?
因为这是个序号栏位,录入数据时没必要把游标进入到这个栏位中去,这样可以节约时间
不胜感激!

------
先查HELP
再查GOOGLE
最後才發問

沒人有義務替你解答問題
在標題或文章中標明很急
並不會增加網友回答速度

Developing Tool:
1.Delphi 6
2.Visual Studio 2005
3.Visual Studio 2008
DBMS:
MS-SQL

感谢eaglewolf大大的关注,是我没说清楚,这个栏位是一定要显示的,不能将其visible设为false

===================引 用 eaglewolf 文 章===================
最快的方法就是把該Column的Visible屬性設為False
dbgrid1.Columns[0].Visible := False;

===================引 用 luowy651 文 章===================
请教各位大大:
如何在使用上.下,左,右或enter键,mouse时, 让游标都始终不能进入dbgrid的最左边的栏位?
因为这是个序号栏位,录入数据时没必要把游标进入到这个栏位中去,这样可以节约时间
不胜感激!

編輯記錄

作法有很多，必須處理游標及焦點部分。
阻止選擇欄位，大概想到的作法：
1. SelectCell
Override SelectCell 方法，若 Col = X 則 Result := False

2.在 OnColEnter 事件
變更 Options 及 HideEditor

....

感谢Rootkit大大的回复,小弟初学,功力有限,能否再详细些?

===================引 用 RootKit 文 章===================
作法有很多，必須處理游標及焦點部分。
阻止選擇欄位，大概想到的作法：
1. SelectCell
Override SelectCell 方法，若 Col = X 則 Result := False

2.在 OnColEnter 事件
變更 Options 及 HideEditor

....

使用 fixedcol 就可以解決了

汗!小弟初学,能否请大大说得更详细些?

一直想不起來，原來是忘了這一招。當然外觀上，會有些不同。

記得是 TStringGrid(DBGrid1).FixedCol := 2;
試一下！不清楚 TCustomGrid 是否有 Published 此屬性。

===================引 用 P.D. 文 章===================
使用 fixedcol 就可以解決了

谢谢. TStringGrid(DBGrid1).FixedCols:=2;确实可用,但是,会引起dbgrid的变形,但我在网路上找了很多有关资料,都没能解决这个问题,或许,这个问题确实很难解

===================引 用 RootKit 文 章===================
一直想不起來，原來是忘了這一招。當然外觀上，會有些不同。

記得是 TStringGrid(DBGrid1).FixedCol := 2;
試一下！不清楚 TCustomGrid 是否有 Published 此屬性。

===================引 用 P.D. 文 章===================
使用 fixedcol 就可以解決了

難解！？  都說了哩..

TDBGrid = Class(DBGrids.TDBGrid)
protected
function SelectCell(ACol, ARow: Longint): Boolean; Override;
end;
TForm1 = class(TForm)
...
implementation
function TDBGrid.SelectCell(ACol, ARow: Longint): Boolean;
begin
Result := inherited SelectCell(ACol, ARow);
// 第二欄不讓它選
if ACol = 2 then Result := False;
end;

很多方法啦...



===================引 用 luowy651 文 章===================
谢谢. TStringGrid(DBGrid1).FixedCols:=2;确实可用,但是,会引起dbgrid的变形,但我在网路上找了很多有关资料,都没能解决这个问题,或许,这个问题确实很难解

===================引 用 RootKit 文 章===================
一直想不起來，原來是忘了這一招。當然外觀上，會有些不同。

記得是 TStringGrid(DBGrid1).FixedCol := 2;
試一下！不清楚 TCustomGrid 是否有 Published 此屬性。

===================引 用 P.D. 文 章===================
使用 fixedcol 就可以解決了

太感谢RootKit大大了,这个问题困扰了我很久,今日得解,实在感恩!


===================引 用 RootKit 文 章===================
難解！？ 都說了哩..

TDBGrid = Class(DBGrids.TDBGrid)
protected
function SelectCell(ACol, ARow: Longint): Boolean; Override;
end;
TForm1 = class(TForm)
...
implementation
function TDBGrid.SelectCell(ACol, ARow: Longint): Boolean;
begin
Result := inherited SelectCell(ACol, ARow);
// 第二欄不讓它選
if ACol = 2 then Result := False;
end;

很多方法啦...



===================引 用 luowy651 文 章===================
谢谢. TStringGrid(DBGrid1).FixedCols:=2;确实可用,但是,会引起dbgrid的变形,但我在网路上找了很多有关资料,都没能解决这个问题,或许,这个问题确实很难解