在TStringGrid中插入TComboBox
With Grid1? do
??? begin
????? nIndexCB := ARow ;
????? MyRect:=CellRect(ACol,ARow) ;
????? CB1.Visible:=True;
????? CB1.ItemHeight := 20;
????? CB1.SetBounds(Grid1.left+MyRect.Left+1,MyRect.Top+Grid1.Top+1,
????????? MyRect.Right-MyRect.Left+2 ,MyRect.Bottom-MyRect.Top +2);
????? CB1.Text:=Grid1.Cells[ACol,ARow];
????? i := Cb1.Items.IndexOf(Grid1.Cells[ACol,ARow]) ;
????? Cb1.ItemIndex := i;
????? CB1.SetFocus;
??? end;?With Grid1? do
??? begin
????? nIndexCB := ARow ;
????? MyRect:=CellRect(ACol,ARow) ;
????? CB1.Visible:=True;
????? CB1.ItemHeight := 20;
????? CB1.SetBounds(Grid1.left+MyRect.Left+1,MyRect.Top+Grid1.Top+1,
????????? MyRect.Right-MyRect.Left+2 ,MyRect.Bottom-MyRect.Top +2);
????? CB1.Text:=Grid1.Cells[ACol,ARow];
????? i := Cb1.Items.IndexOf(Grid1.Cells[ACol,ARow]) ;
????? Cb1.ItemIndex := i;
????? CB1.SetFocus;
??? end;?With Grid1? do
??? begin
????? nIndexCB := ARow ;
????? MyRect:=CellRect(ACol,ARow) ;
????? CB1.Visible:=True;
????? CB1.ItemHeight := 20;
????? CB1.SetBounds(Grid1.left+MyRect.Left+1,MyRect.Top+Grid1.Top+1,
????????? MyRect.Right-MyRect.Left+2 ,MyRect.Bottom-MyRect.Top +2);
????? CB1.Text:=Grid1.Cells[ACol,ARow];
????? i := Cb1.Items.IndexOf(Grid1.Cells[ACol,ARow]) ;
????? Cb1.ItemIndex := i;
????? CB1.SetFocus;
??? end;?

With Grid1  do    begin      nIndexCB := ARow ;      MyRect:=CellRect(ACol,ARow) ;      CB1.Visible:=True;      CB1.ItemHeight := 20;      CB1.SetBounds(Grid1.left+MyRect.Left+1,MyRect.Top+Grid1.Top+1,          MyRect.Right-MyRect.Left+2 ,MyRect.Bottom-MyRect.Top +2);      CB1.Text:=Grid1.Cells[ACol,ARow];      i := Cb1.Items.IndexOf(Grid1.Cells[ACol,ARow]) ;      Cb1.ItemIndex := i;      CB1.SetFocus;    end;

?