請問如何設定1:單欄不可Edit(其他欄可) 2:單列不可Edit(其他列可) 3.單格不可Edit(其他格可),謝

1.單欄不可 Edit

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
var
  c: TInplaceEdit;
  i: integer;
begin
  for i := 0 to DBGrid1.ControlCount -1 do
    if DBGrid1.Controls[i] is TInplaceEdit then
    begin
      c := TInplaceEdit(DBGrid1.Controls[i]);
      Break;
    end;
  if (c <> nil) and (DBGrid1.SelectedIndex = 0) then
    Key := #0;
end;

2.單列不可 Edit

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
var
  c: TInplaceEdit;
  i: integer;
begin
  for i := 0 to DBGrid1.ControlCount -1 do
    if DBGrid1.Controls[i] is TInplaceEdit then
    begin
      c := TInplaceEdit(DBGrid1.Controls[i]);
      if (c <> nil) and (TCrackGrid(DBGrid1).Row = 1) then
      begin
        Key := #0;
        Exit;
      end;
    end;
end;

3.單格不可 Edit, 以上兩者改一下 --- 這次沒買到 cd-pro2 實在很 ... 發表人 - hagar 於 2004/03/18 18:03:06

hager你好,你的回應程式我執行過還是能edit?,不知是我不太懂你的程式的用義,還是我提的問題說得不清楚?我再說清楚些,所指單欄應改成某欄比較恰當(這欄縱向從上而下的cell都不可edit),列跟單格的意思亦是,我主要是希望能夠單格(cell)控制不能edit,請各位前輩幫幫忙

單欄(Col)由 TDBGrid.SelectedIndex 來判斷 單列(Row)由 TCrackGrid(DBGrid1).Row 來判斷 兩者加起來可控制單格(Cell) 小弟這裡(Delphi 5)試是可以的啊. --- 這次沒買到 cd-pro2 實在很 ...

單欄執行過可以了^^,但單列執行時出現 [Error] Unit1.pas(38): Undeclared identifier: 'TCrackGrid' 我用的是Delphi 7... 順帶一問,cd-pro2是什麼?

1.

type
  TCrackGrid = class(TDBGrid)
  end;    type
  TForm1 = class(TForm)
  ...

2.cd-pro2 部份: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=46564 --- 這次沒買到 cd-pro2 實在很 ...

都執行通過,單格也可控制不能Edit,非常感謝! 目前下載cd-pro2影片中,想知道是啥^^