关于DBgrid技巧问题,急,急,急!!! 一个窗体中有dbgrid控件,我在另一窗体中查询出了记录,如何才能在dbgrid中以不同的颜色反映出这条记录。谢谢!!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我dbgrid在查询前已是隔一行用不同颜色表示。而我另一窗体是一模式窗口。 ondrawcoulmncell事件中画上颜色试试!自己还真是没有什么好的方法 这样行,但我查询窗口不关闭,dbgrid的颜色是不会变的。应如和解决。 procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);begin if DataCol mod 2=0 then dbgrid1.Canvas.Brush.Color:=clred else dbgrid1.Canvas.Brush.Color:=clblue; dbgrid1.Canvas.FillRect(rect); dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);end; 只要你的dataset.open了,无论在哪里都会触发DrawColumnCell的 你没有dbgrid1.DataSource.DataSet.DisableControls吧? 求DELPHI USB通讯实例 用TidFTP如何获取服务器上某个目录下的文件个数,或者判断该目录下是否有文件存在? 有没有人用过suipacktrial_delph的控件啊? 求一程序(超小) 急~!~! 最近因为转工 有半个月未上论坛了 为了新的工作 散分。。。 DBGrid中我选中多行,然后我想只显示或报表打印我选中的这些记录的结果,应该怎么做. (100分)关于使用delphix的全屏的问题! 如何使exe运行时找到相关的bpl文件 waveOutGetVolume 这个函数如何调用? 一个Access数据库的查询问题,帮忙看看! 高手,高手高手高手高手高手高手
自己还真是没有什么好的方法
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if DataCol mod 2=0 then
dbgrid1.Canvas.Brush.Color:=clred
else
dbgrid1.Canvas.Brush.Color:=clblue; dbgrid1.Canvas.FillRect(rect); dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);
end;