如何让TStringGrid 每一行的 前面可以加一个复选筐 让DBGrid 的当前记录程高亮显示

Question

如何让TStringGrid 每一行的 前面可以加一个复选筐  让DBGrid 的当前记录程高亮显示

Answer 1

自画吧...
////////////////////////////
建意使用AdvStringGrid功能强大...

Answer 2

我在用.net时在,表中加一个bit字段就行了
在这儿没有试过

Answer 3

1。  《Delphi深度探索〉中有你要的，我又原书
2。
    if (Column.Field.AsString = '0') then begin //根据不同值设置背景色
      UserInfo.Canvas.Brush.Color:=TColor($0090A0AF);
    end else if (Column.Field.AsString = '1') then begin
      UserInfo.Canvas.Brush.Color:=clGreen;
    end else if (Column.Field.AsString = '2') then
      UserInfo.Canvas.Brush.Color:=clRed;
    UserInfo.Canvas.Font.Color := clWhite; //字体颜色
    UserInfo.DefaultDrawColumnCell(Rect, DataCol, Column, State);