不要哭不要哭，我来告诉你方法。其实你不要动态生成那么多的Combobox，有2列需要就只
要两个就够了，也不用动态生成，在设计时将它的visible设成false就行了。然后是设置
stringGrid的onClick事件：
var V_Rect:TRect;
begin
With StringGrid1 do
begin
if Col<>2 then Combobox1.visible:=false
else begin
V_Rect:=CellRect(3,row);
Combobox1.Width:=V_Rect.Right-V_Rect.Left+1;
Combobox1.Left:=Left+V_Rect.Left+1;
Combobox1.Top:=Top+V_Rect.Top+1;
Combobox1.Height:=V_Rect.Bottom - V_Rect.Top+1;
Combobox1.visible:=true;
Combobox1.SetFocus;
Combobox1.Text:=Cells[3.Row];
end;
if col=3 then ..... //按上面方法如法炮制
end;
如果stringGrid的列宽设为可以拉动的话，还要再设置其onColWidthsChanged事件
P_SetGrdEdt(Combobox1,Stringgrid1,2,StringGrid1.row);
P_SetGrdEdt(Combobox2,StringGrid1,3,StringGrid2.Row);
用到的过程P_SetGrdEdt如下：
procedure P_SetGrdEdt(B_Edt:TWinControl;B_Grd:TStringAlignGrid;B_Col,B_Row:integer);
//根据表格B_Grd的当前行来设置编辑或组合框B_Edt的位置与选择状态.B_Col,B_Row:所在列,所在行
var V_Rect:TRect;
begin
With B_Grd do
begin
V_Rect:=CellRect(B_Col,B_Row);
B_Edt.Width:=V_Rect.Right-V_Rect.Left+1;
V_Edt.Left:=Left+V_Rect.Left+1;
V_Edt.Top:=Top+V_Rect.Top+1;
V_Edt.Height:=V_Rect.Bottom-V_Rect.Top+3;
end;
end;
其实上面的Click事件也可以使用该过程.
还要设置组合框的exit与keypress事件
procedure TForm1.Combobox1exit(sender:TObject);
begin
StringGrid1.Cells[2,StringGrid1.row]:=Combobox1.text;
end;
procedure TFrom1.combobox1keypress(sender:TObject.......);
begin
if (key=#13) or (key=#9) then //回车或tab键时跳到下一列
begin
StringGrid1.col:=3;
StringGrid1.setfocus;
end;
end;
这样在焦点移动到需要组合框的位置时才会出现组合框,并用它来输入,其它时候就不会出现组合框.
代码是我现敲进去的，有错误的话自己判断吧。
