表格内嵌编辑控件

最新推荐文章于 2025-03-19 21:59:32 发布

转载最新推荐文章于 2025-03-19 21:59:32 发布 · 93 阅读

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/hnxxcxg/archive/2011/09/19/2940583.html

本文介绍如何在Delphi的DBGrid控件中嵌入DBComboBox,实现数据编辑功能。通过重写DrawDataCell方法定位组合框，并根据字段名称判断是否显示相应的DBComboBox。适用于使用Delphi进行桌面应用程序开发的技术人员。

在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