读书人

delphi dbgrideh的checkbox如何就点不

发布时间: 2012-02-24 16:30:38 作者: rapoo

delphi dbgrideh的checkbox怎么就点不上呢
我设置了相关的checkboxes=true
这个好了,复选框是有了,可是就是点不了。我的数据库是oracle的,据说里面是没有布尔类型的。所以我设置是char(1)默认是'0'
然后keylist '1','0'.可是为什么就是点不了呢?要编写什么事件啊?我用的是ehlib的,他的那个demo我也看了,好像是用了tdbcheckbox。但是没有看懂。
尤其郁闷的是,我有个好使的源代码,也没有照demo那么设置,就是好使,不解。
我的不可点击的源代码如下:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, RzDBGrid, DBGridEh, DB, ADODB;

type
TForm1 = class(TForm)
DBGridEh1: TDBGridEh;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
procedure DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
begin
DBGridEh1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

end.


[解决办法]
你连接的是oracle数据库,我这儿没有,改成sql后可以啊

读书人网 >.NET

热点推荐