设置DBGrid当前行的颜色

[lance]

http://www.cnblogs.com/lance2088/archive/2008/08/21/1272976.html

定义个子类MyDBGrid继承TDBGrid，以提供访问父类保护成员的接口。
type
MyDBGrid=class(TDBGrid)
private

public
function GetRow:integer;
function IsCurrent:boolean;
end;





function MyDBGrid.GetRow: integer;
begin
result:=row;
end;

function MyDBGrid.IsCurrent: boolean;
begin
result:=(DataLink.ActiveRecord=row-1);
end;



判断是否是当前行。

type
TGlobal=class

class function IsCurrentRow(AMyDBGrid:MyDBGrid):boolean;

end;


class function TGlobal.IsCurrentRow(AMyDBGrid: MyDBGrid): boolean;
begin
result:=AMyDBGrid.IsCurrent;
end;



在DrawColumnCell事件中。



procedure TFormMain.MyDBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if TGlobal.IsCurrentRow(MYDBGrid(Sender))

begin
(Sender as TDBGrid).Canvas.Brush.Color :=$000080FF;

end
else
begin
if (Sender as TDBGrid).DataSource.DataSet.RecNo mod 2 =0 then
(Sender as TDBGrid).Canvas.Brush.Color :=rgb(246,246,246); //$00F3F3F3; //定义背景颜色
end;
(Sender as TDBGrid).DefaultDrawColumnCell(Rect,DataCol,Column,State);

end;



效果：

[shuihan20e]

?

[lyguo]

你想问什么？

[youcunzai]

"产品"展示?

[lance]

很多人问如何设置DBGrid当前行的颜色，这是一个解决的办法。

[lyguo]

我用DBGRIDEH
用到(Sender as TDBGridEH).DefaultDrawColumnCell(Rect,DataCol,Column,State); 这个时出错，提示类型不。。。

[lance]

如果有源代码，跟进去看看。

[lw549]

网上一搜一大把。

[i_am_different]

顶你

[jin20000]

哦了,还系顶一下!~

[lance]

呵呵。在DrawColumnCell事件中如何知道当前画的是哪行？

[lance]

楼上的给搜一把看看。

我上面给出的办法不是设置行选择，当失去焦点后还是显示设置的颜色。

[lw549]

我不想继续回复这个帖子了，很无聊。

http://www.google.com/search?client=opera&rls=en&q=DrawColumnCell&sourceid=opera&ie=utf-8&oe=utf-8

[lance]

你不如直接回复 www.google.com

在DrawColumnCell事件里 如何能知道当前画的是哪一行？

[lance]

你不如直接回复 www.google.com