Dear 各位大大。

我從網路 找到 以下資料，
TStringGrid(DbGrid1).FixedCols := 2;

以及

type TMyGrid = Class(TDBGrid) end;

TMyGrid(DbGrid1).FixedCols := 2;

可是有一些問題，1)標題名稱不見 2) 點選到該鎖定欄位，右邊會多一欄鎖定欄位資料。

如果，一定要使用DBGrid時，是否有什麼解決方法，還是指定那欄鎖定欄位，mouseDown無反應。
請問該如何做呢。

thks

看看這裡
http://delphi.ktop.com.tw/board.php?cid=30&fid=66&tid=97189

不行再說。

感謝 RootKit 提供的討論串
解決了我長久已來的疑惑！

------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/

Dear RootKit 大大。

謝謝您，您所提供這則討論正是我想知道的資訊，可是，不好意思，我嘗試將
這則碼，放入的我的form程式中，似乎run起來，都有錯，是否是放錯位置，或是其他方法去呼叫。

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;

可否告訴我該如何去使用。麻煩您。thks

Dear RootKit 大大。

麻煩您，我已試出來，不好意思。
可是如果要指定是那一個DBGrid，那該如何去設定呢。

再次麻煩您，thks。

Dear RootKit 大大。

您好，如在標題在移動或調整欄位大小，或利用標題作排序資料時，
似乎，鎖定該欄位就失效，請問那要如何解決。
再次麻煩您。thks

移動欄位造成次序不同，或帶游標至位置。
補強可由 ColumnMoved 事件處理。

至於排序或改欄寬，應不至於。
通常還是會，跟預設為第一個欄位有關（同StringGrid編輯的問題）因此在 OnEnter 事件需處理一下預設的 Col 值。

Dear RootKit 大大，您好:

我如嘗試這樣放，
ColumnMoved及OnEnter沒有變，但TitleClick可以。
如下。

//表單有個重新整理buttom(sbtResh02)。
procedure TfrINVR003.sbtResh02Click(Sender: TObject);
procedure GetMPSDATA();
begin
with dmMPS.adoSQL02 do
begin
Close;
SQL.Clear;
SQL.Add(' SELECT ZG002,ZG003,ZG004,ZG005,ZG006,ZG007,ZG008,ZG009,ZG010,ZG011,ZG012,ZG013,ZG001 FROM MOCZG ');
SQL.Add(' WHERE ZG001 = ''' medtPDATE.Text ''' ');
SQL.Add(' ORDER BY 1,2 ');
Open;
end;
dmMPS.ds02.DataSet := dmMPS.adoSQL02;
dbgMPS.DataSource := dmMPS.ds02;
:
:
:
:
end;
begin
GetMPSDATA;
TStringGrid(dbgMPS).FixedCols := 2;
end;

//ColumnMoved事件
procedure TfrINVR003.dbgMPSColumnMoved(Sender: TObject; FromIndex,
ToIndex: Integer);
begin
TStringGrid(dbgMPS).FixedCols := 2;
end;

//OnEnter事件
procedure TfrINVR003.dbgMPSEnter(Sender: TObject);
begin
TStringGrid(dbgMPS).FixedCols := 2;
end;

//TitleClick事件
procedure TfrINVR003.dbgMPSTitleClick(Column: TColumn);
procedure ClearSortMark;
var
ii,x:integer;
cStr:string;
c:TColumn;
begin
for ii:=0 to TDBGrid(Column.Grid).Columns.Count-1 do
begin
c:=TDBGrid(Column.Grid).Columns[ii];
cStr:=c.Title.Caption;
if (pos('▲',cStr)<>0) then
Delete(cStr, pos('▲',cStr),2)
else if (pos('▼',cStr)<>0) then
Delete(cStr, pos('▼',cStr),2);
c.Title.Caption:=cStr;
end;
end;
begin
ClearSortMark;
if RightStr(dmMPS.adoSQL02.Sort,3)='ESC' THEN
begin
dmMPS.adoSQL02.Sort:=Column.FieldName ' ASC';
Column.Title.Caption := Column.Title.Caption '▲';
end
ELSE
begin
dmMPS.adoSQL02.Sort:=Column.FieldName ' DESC';
Column.Title.Caption := Column.Title.Caption '▼';
end;
TStringGrid(dbgMPS).FixedCols := 2;
end;

麻煩您，謝謝。

有點無俚頭....點點點

1. 使用 FixedCols 就不要允許 ColumnMove 在 Options 拿掉。
With TStringGrid(DBGrid1) do Options := Options - [goColMoving];
因為 FixedCols 是不變的，但Column 會搬來搬去。

2. 使用 dgAlwaysShowEditor 就要注意 Col 的位置，因為預設在第一個位置。
TStringGrid(DBgrid1).Col := 2;

臨時想到就這麼多，細節需要自行在推敲。

謝謝。RootKit的大力幫忙。