如何设置DBGrid的一列不可修改 有什么办法让DBGrid的一列不能编辑 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 好像不对fixedcols:Specifies the number of columns on the left of the grid that cannot be scrolled.不能指定某列,听大家怎么说 i为你指定的某列DBGrid1.Columns.Items[i].ReadOnly := true; procedure TMainForm.DBGrid1ColEnter(Sender: TObject);begin if dbgrid1.SelectedField=adoquery1.FieldByName('app_id') then dbgrid1.options:=dbgrid1.options-[dgediting] else dbgrid1.options:=dbgrid1.options+[dgediting];end; 双击DBGrid,弹出一个对话框,单击上面的一个按钮,加上所有字段,点中一个字段,然后在属性编辑器里设置Readonly属性为True Delphi中怎么导出TwwDBGrid中的数据 让外部程序的一个窗口获得焦点,然后向这个窗口发送退格指令 请问如何处理窗体的WM_COPYDATA消息以及用户自定义的消息? adoquery查询到n条记录,想显示第i条记录,该怎么办 如何实现有两个MIC输入录音 怎样编写返回数组的dll??? pos前台的打印程序 急!!!下载文件保存路径的问题! Delphi控件 請教幾個tcp控件 一个关于DBCHART的使用问题。 各位请给个回应,谢谢!
fixedcols:
Specifies the number of columns on the left of the grid that cannot be scrolled.
不能指定某列,听大家怎么说
DBGrid1.Columns.Items[i].ReadOnly := true;
begin
if dbgrid1.SelectedField=adoquery1.FieldByName('app_id') then
dbgrid1.options:=dbgrid1.options-[dgediting]
else
dbgrid1.options:=dbgrid1.options+[dgediting];
end;