DBGrid中怎么显示CheckBox?

解决方案 »

  1.   

    看看在dbgrid中加入可视化控件。
      

  2.   

    http://epro2000.myetang.com/document/control_u/31.htm
      

  3.   

    1. 放置一个CheckBox控件,填写您要选用的值列表,设为Visible:=False
    2.DBGrid1.OnEnter事件里,XXXX为字段名
      if (gdFocused in State) and
        (Column.Field = XXXX) then
      begin
        CheckBox.DBGrid1DrawColumnCell(
          Rect.Left + DBGrid1.Left + 1,
          Rect.Top + DBGrid1.Top + 1,
          Rect.Right - Rect.Left,
          Rect.Bottom - Rect.Top);
      end;3.DBGrid的ColEnter 事件
      if DBGrid1.Columns [DBGrid1.SelectedIndex].
          Field = XXXX then
        CheckBox.Visible := True
      else
        CheckBox.Visible := False;
      

  4.   

    用DexExpress Grid吧
    www.51delphi.com