我从昨天到今天都没有一个大虾来帮我,只有加分了。谁能把此问题解决了俺200分都送他了。问题请参见03-31 09: 52 的帖子。
解决方案 »
- delphi运行不起来,好像是不能生成一个文件,怎么解决?很急切!!!
- 我用 installshield 次次不成功
- 在txt文件中如何删除回车前的符号和字母!
- chart如何动态改变坐标?
- 请高手帮我看看下面的代码。不知道什么问题,编译成功,执行出错!特别邀请poleax() 进来
- 请问:在MDI窗体的CLOSEQUERY事件中写代码就出错?
- dbf为什么VF6打不开????
- 关于在别的程序中添加菜单的问题?
- 如何设置键盘速度
- 有十六进制转化为十进制的函数吗?
- 怎样解决在RichEdit中实现文本全选功能??在线等!
- 求插入子串的函数:例如在原串'acdafd' 的每个‘a’的前面加入'ss'
Field: TField; State: TGridDrawState);
begin
// ondrawdatacell 事件
// (Sender as TDBGrid).DataSource.DataSet.RecNo 这行可得到这个grid的 ADOTable1 的当前行。 if Field.AsString='1' then //如果当前字段内容为1,画为红背景色 ,也可用上面得到的行做为条件。
begin
(Sender as TDBGrid).Canvas.Brush.Color:=clred;
(Sender as TDBGrid).DefaultDrawDataCell(Rect, Field, State);
end;end;