当前记录(或鼠标指向的记录)反色显示CLWindows__ClRed(200分)

  • 主题发起人 主题发起人 leeze001
  • 开始时间 开始时间
L

leeze001

Unregistered / Unconfirmed
GUEST, unregistred user!
[:(]在浏览数据表时,如果鼠标移动到某条记录上时,那条记录反色显示,
这样可以使数据浏览者或资料输入员不至于看错行,发行错误。
例如: TABLE1。的整个表的所有记录的背景色是CLWINDOW,而CURRENTRECORD的背景色是
CLRED;或鼠标指向的记录的背景色是CLRED;
 
不知道这个是不是你想要的。
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
dbgrid1.Canvas.Brush.Color := clWhite;
dbgrid1.Canvas.Font.Color := clBlack;

if gdSelected in State then
begin
dbgrid1.Canvas.Brush.Color := clwhite xor $00FFFFFF;
dbgrid1.Canvas.Font.Color := clBlack xor $00FFFFFF;
end;
dbgrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
 
这个问题我也想知道,
但是听说好象在中是比较难找到的!![:)]
 
感谢你回大我的问题,
但是你的方法是不对
 
后退
顶部