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);}} */
}
//---------------------------------------------------------------------------