如果做到在浏览数据时,当前记录的背景色与从不同?(11分)

  • 主题发起人 主题发起人 milesmaqi
  • 开始时间 开始时间
M

milesmaqi

Unregistered / Unconfirmed
GUEST, unregistred user!
如果我的数据表中记录有很多条,那么在浏览时很可能把第N行的记录与在第N+1行的记录看
混的,所以有的高手在Mouse指向当前记录时,当前记录的背景色会与众不同(反色),我不知道
这是怎么实现的,
请高手指点!!!
 
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if gdSelected in State then
begin
DBGrid1.Canvas.Font.Color := clRed;
DBGrid1.Canvas.Brush.Color := clinfobk;
end
else
begin
DBGrid1.Canvas.Font.Color := clWindowText;
DBGrid1.Canvas.Brush.Color := clWindow;
end;
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
 
后退
顶部