在相应的事件中动态改变dbgrid的属性,如按增加之后,
DBGrid1.Column[0].ReadOnly := false ;
DBGrid1.Column[1].ReadOnly := false ;
DBGrid1.Column[2].ReadOnly := false ;
然后,在afterpost的事件中再改变dbgrid的属性,
DBGrid1.Column[0].ReadOnly := true ;
DBGrid1.Column[1].ReadOnly := true ;
DBGrid1.Column[2].ReadOnly := true ;
请试一试
DBGrid1.Column[0].ReadOnly := false ;
DBGrid1.Column[1].ReadOnly := false ;
DBGrid1.Column[2].ReadOnly := false ;
然后,在afterpost的事件中再改变dbgrid的属性,
DBGrid1.Column[0].ReadOnly := true ;
DBGrid1.Column[1].ReadOnly := true ;
DBGrid1.Column[2].ReadOnly := true ;
请试一试
解决方案 »
- 如何在edit上实现类似excel单元格的批注一样的右上角的红色三角形
- ☆☆☆初次发帖,请多关照☆☆☆关于雅虎音乐搜索的问题
- masm和delphi混编的高手请过来看看
- 請幫我看一下為什么我用相對路徑打開不了exe文件
- 请问哪有SPCOMM.DCU和Tcomm组件下载啊? 谢谢各位了!
- 请各位大虾帮忙,我做了个有关dll的东西不知哪里出错!非常急!在线等!
- 有朋友可以帮我解决一个这样的问题吗。高分送!!!!!!
- frprintgrid中的页面设置无效是怎么回事???
- 我将TMemo1.lines.text 付给SQL SERVER的image 字段 。
- 大家觉得本科生在毕业后考高级程序员如何?用处大不大?(软件方面的)
- 怎么对红外口编程?
- 如何判断一个线程是否处于运行/挂起/未生成状态?
在DBGrid1CellClick事件中加入:
if (Column.Title.Caption <>'Alpha')
and(DBGrid1.SelectedField.AsString <>'')
then DBGrid1.EditorMode :=False
else DBGrid1.EditorMode :=True;
DBGrid1.Column[0].ReadOnly := false ;
DBGrid1.Column[1].ReadOnly := false ;
DBGrid1.Column[2].ReadOnly := false ;
然后,在afterpost的事件中再改变dbgrid的属性,
DBGrid1.Column[0].ReadOnly := true ;
DBGrid1.Column[1].ReadOnly := true ;
DBGrid1.Column[2].ReadOnly := true ;
在申明一下啊