在delphi7中的dbgrid控件中怎样显示一个checkbox样式的字段?????

Question

后台用sql server2000,前台用delphi7，高手请指点，十万火急！！！！

Answer 1

快发到[email protected]中吧，先谢谢你了，我比较急，我一直在等你发过来!!!

Answer 2

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  。。
          DrawFrameControl(DBGrid1.Canvas.Handle,
                     Rect,
                     DFC_BUTTON,
                     DFCS_BUTTONCHECK/DFCS_BUTTONCHECK or DFCS_CHECKED); 
 。。   
end;

Answer 3

可以用第三方控件！DevExpress ExpressQuantumGrid

Answer 4

DrawFrameControl(DBGrid1.Canvas.Handle,
                     Rect,
                     DFC_BUTTON,
                     DFCS_BUTTONCHECK/DFCS_BUTTONCHECK or DFCS_CHECKED); 

Answer 5

procedure TDbaForm.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if (gdFocused in State) and
    (Column.Field = Table1Senior) then
  begin
    DBCheckBox1.SetBounds (
      Rect.Left + DBGrid1.Left + 1,
      Rect.Top + DBGrid1.Top + 1,
      Rect.Right - Rect.Left,
      Rect.Bottom - Rect.Top);
  end;
end;procedure TDbaForm.DBGrid1ColEnter(Sender: TObject);
begin
  if DBGrid1.Columns [DBGrid1.SelectedIndex].
      Field = Table1Senior then
    DBCheckBox1.Visible := True
  else
    DBCheckBox1.Visible := False;
end;

Answer 6

已经给你发过来了
只要字段类型是bit DBGrid的该字段就会自动加上复选框

Answer 7

sz1008(Need For Speed):要修改怎么辦呢?

Answer 8

改变一下参数重新画
DFCS_BUTTONCHECK                  未选中
DFCS_BUTTONCHECK or DFCS_CHECKED  选中