如何把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 求助 CXgrid 改变选定行的背景颜色?? 求TreeView读数据库高效算法 求两日期的相差天数的函数怎么写?betweensday(date1,date2)不对呀+ 关于离散曲线积分程序 SQL语句的参数该怎么指定? 我要送分,快来! 哪位朋友用过OleInitialize ? 50分请教,我在cellclick中怎么改变当前行的颜色?? 什么数据库在win 98以上视窗系统上肯定有? 一个查询的小问题,怎么在dbgrid中显示 异步方式读取网络文件的问题 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