表格内嵌编辑控件

 

在DBGrid 中嵌入一个 DBComboBox1
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);
begin
if (Field.FieldName = DBComboBox1.DataField ) then
begin
DBComboBox1.Left := Rect.Left+ DBGrid1.Left;
DBComboBox1.Top := Rect.Top +DBGrid1.top;
DBComboBox1.Width := Rect.Right - Rect.Left;
DBComboBox1.Height := Rect.Bottom - Rect.Top;
DBComboBox1.Visible := True;
end;
end;

cxgrid：

procedure TMycxGrid.ColumnDrawCell(Sender: TcxCustomGridTableView;
  ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
  var ADone: Boolean);
var
  g: TcxGrid;
  c: TMyDBComboBox;
  d: TMyDBComboButtonEdit;
  e: TMyDBBitBtn;
  FieldName: string;

  procedure _SetControl(Value: TWinControl);
  begin
    g := TcxGrid(TcxGridDBTableView(Sender).GetParentComponent);
    Value.Left := AViewInfo.TextAreaBounds.Left + g.left;
    Value.Top := AViewInfo.TextAreaBounds.Top + g.Top;
    Value.Width := AViewInfo.TextAreaBounds.Right - AViewInfo.TextAreaBounds.left;
    Value.Height := AViewInfo.TextAreaBounds.Bottom - AViewInfo.TextAreaBounds.top;
    Value.Visible := True;
  end;
begin
  if AViewInfo.Editing then
  begin
    FieldName := LowerCase(TcxGridDBTableView(Sender).Columns[AViewInfo.Item.ID].Caption);

    if fBindControl is TMyDBComboBox then
    begin
      c := fBindControl as TMyDBComboBox;
      if LowerCase(c.DataField) = FieldName then
        _SetControl(c)
      else c.Visible := False;
    end else if fBindControl is TMyDBComboButtonEdit then
    begin
      d := fbindcontrol as TMyDBComboButtonEdit;
      if LowerCase(d.DataField) = FieldName then
        _SetControl(d)
      else d.Visible := False;
    end else if FBindControl is TMyDBBitBtn then
    begin
      e := fbindcontrol as TMyDBBitBtn;
      if LowerCase(e.DataField) = FieldName then
        _SetControl(e)
      else e.Visible := False;
    end;
  end;
end;