各位大大： 我將delphi5升級成delphi7，原來的lookup欄位在Dbgrid readonly時不顯示下拉框，但在delphi7中會可以下拉，並可以修改Dbgrid中資料，雖不能保存，但造成很大不便，不知有無好方法，使其不可改 多謝各位！

您好： 對該欄在設定一次 DBGrid1.Columns.Items[I].ReadOnly:=True; ~~應無所住而生其心~~

引言: 您好： 對該欄在設定一次 DBGrid1.Columns.Items[I].ReadOnly:=True; ~~應無所住而生其心~~

但是Dbgrid中的欄位可以拖動改變順序，這樣很受限制，還有更好的方法嗎？

Hi:    將該 DBGrid 的 Options 中的 dbEditing 設為 False 看看 D6 & D7 中，該值 Default 為 True ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ---------------------------------- 發表人 -

------
Fishman

引言: Hi: 將該 DBGrid 的 Options 中的 dbEditing 設為 False 看看 D6 & D7 中，該值 Default 為 True 發表人 - >< face="Verdana, Arial, Helvetica"> 因爲我動態鎖定、解鎖，還有更好方法沒？多謝了！

有兩個方式    1.把該lookup類型的欄位 readonly設為true    2.把dbgrid對應的這個column readonly設為true      可以用掃描的方式    

  for i:=0 to DBGrid1.Columns.count-1 do begin
     if dbgrid1.columns[i].fieldname=xxx then begin
       dbgrid1.coilumns[i].readonly:=true;
       break;
     end;
  end;    

發表人 - hahalin 於 2004/11/17 12:08:19

引言: 有兩個方式 1.把該lookup類型的欄位 readonly設為true 2.把dbgrid對應的這個column readonly設為true 可以用掃描的方式

  for i:=0 to DBGrid1.Columns.count-1 do begin
     if dbgrid1.columns[i].fieldname=xxx then begin
       dbgrid1.coilumns[i].readonly:=true;
       break;
     end;
  end;    

發表人 - hahalin 於 2004/11/17 12:08:19

多謝各位的回答，這樣做是很好，我想如果這是DBGRID的BUG，可不可以在DBGRID原代碼中直接改呢，那樣就不用每個程式都寫一次，只是原碼我一般不敢改，請教各位怎樣改可以呢？

多謝各位，我用DATASET.READONLY=true來解決了