Problème d'insertion un ComboBox dans un DBGrid

Bonjour
pour insérer un comboBox dans une colonne de DBGrid j'ai utilisée ce code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 ComboBox->Visible=false;
  if ( D->Focused() && State.Contains(gdSelected))
  {
          if ((DataCol==12))
           {
 
           ComboBox->Left = Rect.Left+  DBGrid->Left+1  ;
           ComboBox->Top = Rect.Top + DBGrid->Top + 1;
           ComboBox->Width =  Rect.Right - Rect.Left + 3;
             ComboBox->Visible = True;
 
          }
 
         else
 
         {
 
         ComboBox->Visible=false;
 
          }

}
ce code fonctionne parfaitement mais le faite de mettre DBGrid dans un TabSheet le comboBox décale de la case de la colonne de DBGrid sélectionné

merci d'avance pour votre aide