在程序中指定
DBGrid.Columns[I].ReadOnly := True
DBGrid.Columns[I].ReadOnly := True
解决方案 »
- 数据库like查询
- 一个邮件收取的问题,如何仅收取指定条件的邮件
- RES使用的疑问
- 在家里使用c/s结构程序的幻想,欢迎拍砖
- ■■■如何用程序实现实时的获得DOS程序的输出?和实时的向DOS程序输入?
- 为什么在Windows98下开发生成的应用程序在windows2000下用总会出现一些问题,页面很难切换?
- delphi7.0的Tcpserver 和TcpClient控件与serversocket,ClientSocket有什么不同?
- 关于ADO组件的数据备份和数据还原的问题.
- 怎样使用MediaPlayer组件制作最简单的VCD播放器?
- 问题很简单啊,有哪位高人知道?捡份了!
- 三层结构中,两个不明白的问题,请帮忙。谢谢。
- 如何在Dbgrid单元格中显示不同的颜色?
procedure TForm1.DataSource2DataChange(Sender: TObject; Field: TField);
begin
if DataSource2.DataSet.Fields[0] >10 then
DBGrid1.Options := DBGrid1.Options -[dgEditing]
else
DBGrid1.Options := DBGrid1.Options +[dgEditing];
end;
可以先过滤
或者指定哪些列显示或者象老狼说的readonly
begin
DBGrid1.ReadOnly := (DataSet.Fields[0].AsString <> 'It is me');
end;
begin
TDbGrid(Sender).ReadOnly:=TDbGrid(Sender).SelectedField.FieldName='abcd'
end;
供大家参考