通过读取数据库把表中的记录以列表的形式显示出来,有点像dbgrid那样,但是我想在每行前面加一个checkbox列,dbgrid控件可以实现这样的效果吗,怎么实现,如果不行,还有哪个控件可以实现这样的效果
解决方案 »
- ***********数据的导入导出
- 知道证书公钥,怎么加密数据啊.
- 求救:运行时错误:access violation at address 00000000.Read of address 00000000
- delphi 中关于mdi 子窗口关闭的问题,各位在开发中可能遇到过......跟贴有分
- 请问那里有windows 95 的安装程序?我的分不多了,答对者每人十分吧!谢谢了!
- 免费的国际一级域名和100M支持ASP、CGI空间,想要的请进
- 怎样才能使两台不用HUB也就是直连的电脑用一个猫上网
- 如何将dbgrid中某列设为可以编辑状态而其他列为不可编辑状态?????????????菜哈??
- 一个控制客户端数量的问题?
- 请问有谁在红旗Linux 2.0桌面版上装过Kylix?
- 菜鸟求教打印的问题
- 谢谢大家在线等
www.51delphi.com有下
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;procedure TDbaForm.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if DBCheckBox1.Visible and (Ord (Key) > 31) then
begin
Key := #0;
Table1.Edit;
DBCheckBox1.Checked := not
DBCheckBox1.Checked;
DBCheckBox1.Field.AsBoolean :=
DBCheckBox1.Checked;
end;
end;