如何在DBGRID构件中的指定列显示COMBOBOX构件并使COMBOBOX显示记录中的内容?

zengwj 2003-09-08 07:25:37

如何在DBGRID构件中的指定列显示COMBOBOX构件并使COMBOBOX显示记录中的内容?

请给个例子?我有一个例子是delphi4环境下的,编译不能通过,我用的是delphi6

...全文

125 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

luckyboy97 2003-09-20

打赏
举报

学习

hnhb 2003-09-20

打赏
举报

在form上放一个ComboBox组件,设定它的visible为false
先把另一个数据表的可用记录放入其中

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

zengwj 2003-09-20

打赏
举报

DBGRID中下拉列表的显示————写在什么地方好呀！

jpyc 2003-09-12

打赏
举报

look!

http://218.56.11.178:8020/web/technology.aspx

->下载基地->例程-数据库/报表->在DBGRID中下拉列表的显示

jinjintalk 2003-09-11

打赏
举报

搂主，换个角度去做，试一下
With adoquery1 do//下拉框里添加产品型号
begin
Active:=False;
sql.clear;
sql.add('Select DBGRID里的列名 from 与DBGRID相关的表');
Open;
While not Eof do
begin
Combobox1.Items.Add(fieldvalues['列名'].asstring);

next;
end;
end;

zengwj 2003-09-10

打赏
举报

那么用DBGrid怎么实现呢?

zengwj 2003-09-09

打赏
举报

DBGridEH我安装了,但不会用!

unit UnitForm1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGridEh; <----------在这里出错!

tiexinliu 2003-09-09