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
  Form1: TForm1;


implementation


{$R *.dfm}


procedure TForm1.btn1Click(Sender: TObject);
var
  i:Integer;
begin
  qry1.SQL.Clear;
  qry1.Close;
  qry1.SQL.Add('select top 10 * from [t_Student]');
  qry1.Open;
  for  i:=0 to DBComboBox1.Items.Count-1 do

  begin

//核心代码就在这里了

     DBGrid1.Columns[1].PickList.add(DBComboBox1.Items.Strings[i]); //我们把DBCombox里面的数据进行填充进去，用DBGrid1.Columns[1].PickList属性进行添加。效果如

  end;

end;

end.

创建日历表格

在数据库将字段建立成datetime类型的。