DBGrid中增加控件

{

// 修改排列方式

if ACol=6 then

  begin

    ComboBox_Zzy.Visible :=true;

    ComboBox_Zzy.ItemIndex :=ComboBox_Zzy.Items.IndexOf(StrGrid.Cells[ACol,ARow]);

    Zzy_Col:=ACol;

    Zzy_Row:=ARow;

    ComboBox_Zzy.Left  :=StrGrid.Left+ StrGrid.CellRect(ACol,ARow).Left+2;

    ComboBox_Zzy.Top   :=StrGrid.Top + StrGrid.CellRect(ACol,ARow).Top +1;

    ComboBox_Zzy.Width :=StrGrid.CellRect(ACol,ARow).Right-StrGrid.CellRect(ACol,ARow).Left;

    ComboBox_Zzy.Height:=StrGrid.CellRect(ACol,ARow).Bottom-StrGrid.CellRect(ACol,ARow).Top;

  end; }