dgRowSelect

if (CheckBox2->Checked)

         {
                DBGrid1->Options=DBGrid1->Options<<dgRowSelect;
       else 
         {
               DBGrid1->Options=DBGrid1->Options>>dgRowSelect;
         }
}

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit3.h"
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm3::DBGrid1DrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumn *Column,
      TGridDrawState State)
{
        int i = DBGrid1->DataSource->DataSet->RecNo;//Присвоение порядкового номера строке.

        if (CheckBox1->Checked==true)
{


                if (i % 2 == 1)//Красим не чётные строки
{

                DBGrid1->Canvas->Brush->Color=clSkyBlue;
                DBGrid1->Canvas->Font->Color=clBlack;
                DBGrid1->Canvas->FillRect(Rect);



                        if (Column->Alignment==taCenter)
{
                           DBGrid1->Canvas->TextOut(Rect.Right-18-
                           DBGrid1->Canvas->TextWidth(Column->Field->Text),
                           Rect.Top+2,Column->Field->Text); }

                                 else

                                 DBGrid1->Canvas->TextOut(Rect.Left+2,Rect.Top+2,Column->Field->Text);
}


                         if (CheckBox1->Checked==false)
{
                            DBGrid1->Canvas->Brush->Color=clWhite;
                            DBGrid1->Canvas->Font->Color=clBlack;
                            DBGrid1->Canvas->FillRect(Rect);}

}

//-------------------------------------------------------------------------//
//Выделение конкретной строки
                         if (DBGrid1->DataSource->DataSet->RecNo == 10)
{
                        DBGrid1->Canvas->Brush->Color=clGreen;
                        DBGrid1->Canvas->Font->Color=clWhite;
                        DBGrid1->Canvas->FillRect(Rect);

                         if (Column->Alignment==taCenter)
{
                         DBGrid1->Canvas->TextOut(Rect.Left+23-
                         DBGrid1->Canvas->TextWidth(Column->Field->Text),
                         Rect.Top+2,Column->Field->Text);
}

                                 else

                                        DBGrid1->Canvas->TextOut(Rect.Left+2,Rect.Top+2,Column->Field->Text);
}




}
//---------------------------------------------------------------------------
void __fastcall TForm3::CheckBox1Click(TObject *Sender)

{


    if (CheckBox1->State==cbChecked)

{
        DBGrid1->DataSource->DataSet->First();

           {  { keybd_event(VK_TAB, 0, 0 ,0);
                   keybd_event(VK_TAB, 0, KEYEVENTF_KEYUP,0);}

                 {  keybd_event(VK_TAB, 0, 0 ,0);
                      keybd_event(VK_TAB, 0, KEYEVENTF_KEYUP,0);}}}



           else if (CheckBox1->State==cbUnchecked)

{
              DBGrid1->DataSource->DataSet->Refresh();

              {  { keybd_event(VK_TAB, 0, 0 ,0);
                   keybd_event(VK_TAB, 0, KEYEVENTF_KEYUP,0);}

                 {  keybd_event(VK_TAB, 0, 0 ,0);
                      keybd_event(VK_TAB, 0, KEYEVENTF_KEYUP,0);}}}


            


}
//---------------------------------------------------------------------------

void __fastcall TForm3::CheckBox2Click(TObject *Sender)
{

  if (CheckBox2->Checked)

         {
                DBGrid1->Options=DBGrid1->Options<<dgRowSelect; }
       else
         {
                DBGrid1->Options=DBGrid1->Options>>dgRowSelect; }
















      /* if (CheckBox2->State==cbChecked)

         {
             DBGrid1->DataSource->DataSet->First();
                DBGrid1->Options=DBGrid1->Options<<dgRowSelect;
         {        keybd_event(VK_TAB, 0, 0 ,0);
                   keybd_event(VK_TAB, 0, KEYEVENTF_KEYUP,0);}}


       else if (CheckBox2->State==cbUnchecked)

         {
             DBGrid1->DataSource->DataSet->Refresh();
               DBGrid1->Options=DBGrid1->Options>>dgRowSelect;
         {       keybd_event(VK_TAB, 0, 0 ,0);
                   keybd_event(VK_TAB, 0, KEYEVENTF_KEYUP,0);}} */
}
//---------------------------------------------------------------------------