如何把CheckBox嵌套在dbgrid的某一列中? 如何把CheckBox嵌套在dbgrid的某一列中? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 可以在数据集里面设置LOOKUP字段 等于是在DBGrid中动态创建了CheckBox, 控制好top,left就可以了. 通过DBGrid的事件 OnDrawColumnCell { 假设当前连接的表结构 Name (String) Checked (bool)}procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);var DBGrid:TDBGrid;begin DBGrid:=Sender as TDBGrid; if(DBGrid.DataSource.DataSet.FieldByName('Checked').AsBoolean) then begin //Rect 区域内 画Check DBGrid.Canvas.... end else begin //Rect 区域内 画unCheck DBGrid.Canvas.... end; end; 还是用DBGridEh组件吧!不是我做广告,确实是好用。 用DBGridEh组件吧!这是它的介绍。http://www.ccw.com.cn/applic/prog/htm2003/20030805_162JZ.asp Fastreport如何在两页上实现不同的Footer? 怎么样判断当前系统的输入法: 请问Delphi如何连接MYSQL? 数据传输如何处理?迷茫中。。。。。。 dxdbgrid 的使用 分栏~~~~~~~~ 图~~~ 300分求购可缩小GIF/JPG图片尺寸之ASP组件 关于axtivex控件的编写 不能释放资源 高手请进 在不同的网内如何通讯????? 请问那位有DELPHI6的注册码 上半场结束了,孙继海受伤下了。现在比分零比零 。 异步方式读取网络文件的问题 DELPHI 连接SQL,通过ODBC ,怎样配置ODBC???
假设当前连接的表结构
Name (String) Checked (bool)
}
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
DBGrid:TDBGrid;
begin
DBGrid:=Sender as TDBGrid;
if(DBGrid.DataSource.DataSet.FieldByName('Checked').AsBoolean) then
begin
//Rect 区域内 画Check
DBGrid.Canvas....
end
else
begin
//Rect 区域内 画unCheck
DBGrid.Canvas....
end;
end;
http://www.ccw.com.cn/applic/prog/htm2003/20030805_162JZ.asp