delphi TDBGridEh 里面镶嵌下拉列表

创建下拉列表

unit Unit1;

interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Grids, DBGridEh, DBCtrls;


type
  TForm1 = class(TForm)
    DBGrid1: TDBGridEh;
    btn1: TButton;
    con1: TADOConnection;
    qry1: TADOQuery;
    ds1: TDataSource;
    ds2: TDataSource;
    qry2: TADOQuery;
    DBComboBox1: TDBComboBox;
    ds3: TADODataSet;
    procedure btn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var