procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin with dbgrid1 do begin if gdselected in state then begin Canvas.Brush.Color:=clred;(红色) Canvas.Font.Color:=clWhite; end;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
with dbgrid1 do
begin
if gdselected in state then
begin
Canvas.Brush.Color:=clred;(红色)
Canvas.Font.Color:=clWhite;
end;
DBGrid1.DefaultDrawColumnCell(rect,datacol,column,state);
end;
end;
怎么样来 实现:当 鼠标指向dbgrid中 的一条记录后
然后自动现实那条记录那列的 内容呢 ?
就象 window 优化大师 那样 ,能够 自动的 提示
谢谢 ,最近 这个 问题 困扰我很 烦谢谢 !~~~