<b>在DBGrid中可选中行而又可进入编辑状况</b>[VC/C++编程]

如安在DBGrid中选中行,而又让它可以进入编辑状况?

大概你会问我这有什么用?呵呵,做数据库利用的兄弟们会深有感触,当用DBGrid显示的字段过量时,用户不得不拉动最下面的转动条,去看最右边的东西,假如没有设置DBGrid->Options[dgRowSelect],那么,拉到最右边之后,很有大概看串行的;假如设置了DBGrid->Options[dgRowSelect],则在拉到最右边之后,不会看串行,但是鼠标点击别的行(不是当前选中行)时,DBGrid的视图一下子就会回到显示最左边的那一列,确切很麻烦,用户不得不一次又一次的拖运下面的转动条.

核心代码以下:

type
　　 TMyDBGrid=class(TDBGrid);
　　 //////////////////////////////////
//DBGrid1.Options->dgEditing=True
//DBGrid1.Options->dgRowSelect=False
　　 procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
　　 DataCol: Integer; Column: TColumn; State: TGridDrawState);
　　 begin
　　 with TMyDBGrid(Sender) do
　　 begin
 if DataLink.ActiveRecord=Row-1 then
 begin
 Canvas.Font.Color:=clWhite;
 Canvas.Brush.Color:=$00800040;
 end
 else
 begin
 Canvas.Brush.Color:=Color;
 Canvas.Font.Color:=Font.Color;
 end;
 DefaultDrawColumnCell(Rect,DataCol,Column,State);
　　 end;
　　 end;

他的办理办法是:曲线救国,撤消DBGrid->Options[dgRowSelect],把当前选中行的后台绘制成蓝色,就象是被选中一样,设法确切很妙.我们公司利用C++Builder,我只好把这段代码改成C++Builder版本的,这时,我才发现这段代码的精良之处.

我发现DataLink属性是TCustomDBGrid中声明为protected的,而在DBGrid中并未声明它的可见性,因此,不能直接利用它;而Row属性则是在TCustomGrid中声明为protected的,在TCustomGrid的子类中也未声明它的可见性,那么,这段代码为安在Delphi中运行的很好?

缘由就在于:ObjectPascal的单元封装,在同一个单元中定义的类,彼此之间是友员的关系,我们再来看这段代码的开首:

type

TMyDBGrid = class(TDBGrid);

声明了一个TMyDBGrid类,那么,当前这个窗体类就和TMyDBGird类互为友元了,那么当然当前窗体类可以直接拜候TMyDBGrid的私有属性Row和DataLink了,一切都明了了,那么用C++就好实现了,核心代码以下:

void __fastcall TMainForm::LineSelEdit(TObject *Sender,const TRect &Rect, int DataCol, TColumn *Column,TGridDrawState State)
　　 {
　　　　 class TMyGridBase : public TCustomGrid
　　　　 {
　　　　 public:
　　　　　　 __property Row;
　　　　 };
　　　　 class TMyGrid : public TCustomDBGrid
　　　　 {
　　　　 public:
　　　　　　 __property DataLink;
　　　　 };
　　　　 TMyGrid *MyGrid = (TMyGrid*)Sender;
　　　　 TMyGridBase *MyGridBase = (TMyGridBase*)Sender;
　　　　 TDBGrid *Grid = (TDBGrid*)Sender;
if(MyGrid->DataLink->ActiveRecord == MyGridBase->Row-1) {
Grid->Canvas->Font->Color = clWhite;
Grid->Canvas->Brush->Color = TColor(0x00800040);
　　　　 } else {
Grid->Canvas->Brush->Color = Grid->Color;
Grid->Canvas->Font->Color = Grid->Font->Color;
　　　　 }
Grid->DefaultDrawColumnCell(Rect,DataCol,Column,State);
　　 }

我把它封装成一个函数,函数的参数与DBGrid的OnDrawDataCell的参数一样,利用它的办法就是撤消设置DBGrid->Options[dgRowSelect],然后设置DBGrid->DefaultDrawing = false,然后在这个DBGrid的OnDrawDataCell事件中调用这个函数,以下:

void __fastcall TMainForm::DBGridDrawColumnCell(TObject *Sender,
const TRect &Rect, int DataCol, TColumn *Column,
　　　　　 TGridDrawState State)
　　 {
this->LineSelEdit(Sender,Rect,DataCol,Column,State);
　　 }