我也用过这些方法,效果不好。
最好用TDBGridEh控件,会更好。
最好用TDBGridEh控件,会更好。
解决方案 »
- PostMessage发送多个消息的顺序问题,关于一个程序录入界面发送TAB问题
- 终于从OFFICE的ACCESS又跳到DELPHI,原来还是DELPHI好用!!!
- C++ Builder 2006 打过Update1 后,随便试了一下还有一些问题
- 一个问题,请帮忙!
- 用Delphi开发的应用比较广的软件有那些!
- 如何屏蔽chart中鼠标的动作。
- 如果我的AdoDataSet是打開狀態, 我就不需要再打開一次,否則就打開,怎麼判斷?謝謝~
- 这里究竟有没高手?为了这问题,600分都用完了!
- 我在安装ORACLE8时提示要加大虚存,不知加C还是D?多大值?请告之详细步骤,谢谢!
- 如何判断字符串是不是合法文件夹路径,无论是否存在
- 高手领分
- 数据库的连接该用bde还是ado?
procedure TFrm_sfs.DG_djdDrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if DG_djd.DataSource.DataSet.FieldByName('RECID').AsInteger mod 2 = 0 then
begin
DG_djd.Canvas.Brush.Color:=clWindow;
end
else
begin
DG_djd.Canvas.Brush.Color:=clSilver;
end;
if (gdSelected in state)and dbgrid1.Focused then
begin
dbgrid1.canvas.brush.color:=clblue;
dbgrid1.Canvas.font.Color:=clwhite;
end;
end;
procedure TFrm_sfs.DG_djdDrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if DG_djd.DataSource.DataSet.FieldByName('RECID').AsInteger mod 2 = 0 then
begin
DG_djd.Canvas.Brush.Color:=clWindow;
end
else
begin
DG_djd.Canvas.Brush.Color:=clSilver;
end;
if (gdSelected in state)and DG_djd.Focused then
begin
dbgrid1.canvas.brush.color:=clblue;
dbgrid1.Canvas.font.Color:=clwhite;
end;
DG_djd.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;