谢谢
解决方案 »
- delphi中想把选择的CheckBox的值获取过来,怎么老提示错误?
- 如何用isapi过滤器获取服务器返回给客户端的数据,我不需要修改数据,只想获取
- 关于delphi 自制IE浏览器的问题(高分求)
- 大哥大姐,兄弟姐妹,帮忙看看,不胜感激。自写组件,设计时能调整大小,运行时比例失调
- delphi 怎样制作透明窗体? 不知道这种说法对不对
- 请问如何将 ADOdataset 的全部数据 快速地 复制到 clientdataset 控件中!!!!!! 急!!!
- 从DLL文件中读取数据错误
- 大侠:求助
- 我想把edit内的内容逐项读出来,怎么做啊?
- FTP中的PASV命令
- 如何取得点击窗口的句柄?
- 看到别人的代码我总是很羡慕,总觉得看起来很舒服,我的总是些垃圾样,提提意见,看我的结症在那里
if not column.Field=dbgrid1.Fields[0] then
begin
DataSource1.AutoEdit:=false;
dbgrid1.Options:=[dgTitles,dgIndicator,dgColumnResize,dgColLines,dgRowLines,dgTabs,dgConfirmdelete];
end
else
begin
DataSource1.AutoEdit:=true;
dbgrid1.Options:=[dgEditing,dgTitles,dgIndicator,dgColumnResize,dgColLines,dgRowLines,dgTabs,dgConfirmdelete];
end;
begin
Columns.Clear;
Columns.Add;
Columns[i].FieldName := 'ffff';
Columns[i].Width := 16;
Columns[i].Title.Caption := 'ffff';
Columns[i].Title.Alignment := myDict[i].TitleAlignment;
Columns[i].ReadOnly := false;
end;
再设除要修改的列外所有的列的DBGridEh.Columns[i].ReadOnly := true;