在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; |
转载于:https://www.cnblogs.com/hnxxcxg/archive/2011/09/19/2940583.html