在DBGrid中可选中行而又可进入编辑状态

核心提示：如何在DBGrid中选中行，而又让它可以进入编辑状态？也许你会问我这有什么用？呵呵，在DBGrid中可选中行而又可进入编辑状态，做数据库应用的兄弟们会深有感慨，当用DBGrid显示的字段过多时，使用它的方法就是取消设置DBGrid->Options[dgRowSelect]，然后设置DBGrid->Defa

　　如何在DBGrid中选中行，而又让它可以进入编辑状态？
　　也许你会问我这有什么用？呵呵，做数据库应用的兄弟们会深有感慨，当用DBGrid显示的字段过多时，用户不得不拉动最下面的滚动条，去看最右边的东西，假如没有设置DBGrid->Options[dgRowSelect],那么，拉到最右边之后，很有可能看串行的；假如设置了DBGrid->Options[dgRowSelect]，则在拉到最右边之后，不会看串行，但是鼠标点击其它行(不是当前选中行)时，DBGrid的视图一下子就会回到显示最左边的那一列，确实很麻烦，用户不得不一次又一次的拖运下面的滚动条。
　　一同事因这个问题而苦恼，而我又在CSDN的文档库中看到了这篇文章：
　　《DBGrid使用全书(五)》，链接：http://dev.csdn.net/article/51/51845.shtm，是Delphi版本的，核心代码如下：
　　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);
　　}

示例代码下载