DBGrid中怎么显示CheckBox?
解决方案 »
- mediaplayer控件播放的图象如何拉伸?
- 自写控件看不见帮改下代码
- LOG文件的读取。
- Com方面的问题
- >>>>>>>>>>>>> 关闭 RichEdit 自动选择整行功能 <<<<<<<<<<<<<<<<<<<<<<<
- 高手救命
- 怎样将一个图象文件写到一个文本文件里呢???????????????????????
- 怎样弄一个进度条出来,显示从远程主机读取数据!!!!高分!!!源码最好!!
- 怎样给一个表中增加新的字段?? :(
- 用Delphi如何识别EDIT1的最后几个字母
- 使用 ADO 连接,如何创建存储过程?
- win98和winxp中编写程序要注意的事项?*****请大家参与*****
2.DBGrid1.OnEnter事件里,XXXX为字段名
if (gdFocused in State) and
(Column.Field = XXXX) then
begin
CheckBox.DBGrid1DrawColumnCell(
Rect.Left + DBGrid1.Left + 1,
Rect.Top + DBGrid1.Top + 1,
Rect.Right - Rect.Left,
Rect.Bottom - Rect.Top);
end;3.DBGrid的ColEnter 事件
if DBGrid1.Columns [DBGrid1.SelectedIndex].
Field = XXXX then
CheckBox.Visible := True
else
CheckBox.Visible := False;
www.51delphi.com