Question

delphi7离开dbgrid时选中行变灰色该怎么弄？

点中dbgrid里边一行背景色默认是蓝色的

但是当点击其他控件或者离开窗口时候，这一行的背景色就没了只剩下左边的三角。

我想在点击其他控件或者离开窗口时候，让选中的行变成灰色，这该用什么事件怎么弄，请大神给个详细的代码，感谢！！！





Answer 1

在DefaultDrawColumnCell事件中写

if gdSelected in State then
begin
with TDBGrid(Sender) do
begin
Canvas.Brush.Color := clBtnface;
DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;

试试，未测试，不知道行不行

追问

可以运行，但是我想要的是回到dbgrid的时候还是默认的蓝色，离开的时候才是灰色的，你这个是一直都是灰色。

追答

if gdSelected in State then
begin
with TDBGrid(Sender) do
begin
if Focused then
Canvas.Brush.Color := $00FF9933
else
Canvas.Brush.Color := clBtnface;
DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;