TDbgridEh能够进行列的合并? 想控制DbgridEh中的同列某个单元格不能进行编辑,同列的其他单元格能够进行编辑,请问该怎样处理? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在与dbgrideh关联的数据集的AfterScoll事件中进行判断,如果该行是允许编辑的则:dbgrideh.columns[dbgrideh.selectedIndex].readonly:=false; 否则dbgrideh.columns[dbgrideh.selectedIndex].readonly:=true; 你可以这样子做在 OnMouseDown事件中procedure TForm1.DBGridEh1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);const ACol = 1;//定义控制列begin with Sender as TDBGridEh do if (DataSource.DataSet.RecNo in [1, 3]) and (Col = ACol) then//该列的1,3单元格不可编辑 ReadOnly := True else ReadOnly := False;end; cxgrid的基础属性 delphi7开发的dll(通过THTTPRIO访问webservice),C#调用时报地址错 请问那种一个动画在屏幕上跑来跑去的程序是怎么做出来的啊? 求助关于TreeView的小问题 如何去掉Form上Caption左边的那个小图标? report模式下ListView怎么显示的列比我想要的多一列? ListView中画图标的问题 关于局域网移动文件的问题 如何获得ADO的异常 我在使用AdoTable控件时为什么不能删除记录 delphi7的报表组件在哪? delphi7 rave报表问题!
dbgrideh.columns[dbgrideh.selectedIndex].readonly:=false; 否则
dbgrideh.columns[dbgrideh.selectedIndex].readonly:=true;
Shift: TShiftState; X, Y: Integer);
const
ACol = 1;//定义控制列
begin
with Sender as TDBGridEh do
if (DataSource.DataSet.RecNo in [1, 3]) and (Col = ACol) then//该列的1,3单元格不可编辑
ReadOnly := True else ReadOnly := False;
end;