我想在DBGrid里实现字段的Checkbox功能和下拉功能,请问一下怎么操作.

Question

下拉功能可能通过PickList实现,但好像只能静态的,不能动态的追加,我DBGrid.Columns[n].PickList之后好像没有可用的操作方法了.
   Checkbox功能,因为某个字段有两种状态,我想选中时为真,不选中为假..   请指教!!!谢谢!!!

Answer 1

添加COLUMN列后，Tcolumn有一个 piacklist属性可以添加下拉列表中的内容

Answer 2

去下一个EhLib.v3.6 控件，内部封住了checkbox和combobox你可以试试，如果不好找，我发给你[email protected]

Answer 3

初始化combobox1的visible为falseprocedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if gdfocused in state then
  begin
    if column.FieldName='Zh' then//你要让combobox显示的那列的字段名
    begin
      form1.ComboBox1.Left:=rect.Left+form1.DBGrid1.Left;
      form1.ComboBox1.Top:=rect.Top+form1.DBGrid1.Top;
      form1.ComboBox1.Width:=rect.Right-rect.Left;
      form1.ComboBox1.Height:=rect.Bottom-rect.Top;
      form1.ComboBox1.Visible:=true;
    end;
  end;
end;