求一个控件 ( 积分: 100 )

那位有 这样的控件：
一个普通的栅格控件（非db的）， 每个栅格可以设成嵌套 combobox 的。就像dbgrid设置column的picklist后可以下拉一样，我只是想找个普通控件。

那位有 这样的控件：
一个普通的栅格控件（非db的）， 每个栅格可以设成嵌套 combobox 的。就像dbgrid设置column的picklist后可以下拉一样，我只是想找个普通控件。

GridView,去www.2ccc.com找，如果找不到留妹我发给你。

哦， 碰到好人了。 我马上去。

哦， 你还是给我发一个吧。duhai_lee@163.com

xgrid

AdvStringGrid

我都是自己写的
只要适当设置ComboBox的Parent和位置就可以了

用stringgrid+一个combobox就行了，不过要写些代码

作者?: archonwang
标题?: DBGrid 应用全书（全面修订正在进行时）
关键字:
分类?: 开发经验
密级?: 公开
http://www.delphibbs.com/keylife/iblog_show.asp?xid=4091


作者?: archonwang
标题?: Ehlib 的使用
关键字: 前 言
分类?: 个人专区
密级?: 公开
http://www.delphibbs.com/keylife/iblog_show.asp?xid=4700

http://www.e-jun.com/bbs/Announce/Announce.asp?BoardID=1&ID=5
做得和Excel难分真假，理论上单元格中可放任何控件，只要在事件里写点代码就行了

procedure TForm1.ZJGrid1GetCellEditor(Sender: TObject; ACoord: TPoint;
var AControl: TWinControl);
begin
// 第二列的编辑器采用ComboBox
if ACoord.X = 2 then AControl := ComboBox1;
end;

procedure TForm1.ZJGrid1EditorLoadCell(Sender: TObject; ACoord: TPoint;
AControl: TWinControl);
begin
// 当单元格进入编辑状态时首先要给ComboBox赋初值
if ACoord.X = 2 then ComboBox1.Text := ZJGrid1.Items[ACoord].Text;
end;

procedure TForm1.ZJGrid1EditorSaveCell(Sender: TObject; ACoord: TPoint;
AControl: TWinControl);
begin
if ACoord.X = 2 then ZJGrid1.Items[ACoord].Text := ComboBox1.Text;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ZJGrid1.CellClass.Cols[2] := TZjComboCell;
ZjGrid1.CellClass.Cols[3] := TZjCheckBoxCell;
end;

多人接受答案了。