delphi TDBGridEh 里面镶嵌下拉列表

最新推荐文章于 2024-07-15 14:02:31 发布

蓝魔鬼仙

最新推荐文章于 2024-07-15 14:02:31 发布

阅读量3.5k

点赞数

本文链接：https://blog.csdn.net/wang463584281/article/details/22654749

版权

这篇博客介绍了如何在Delphi的TDBGridEh组件中创建一个下拉列表，核心代码是通过DBGrid1.Columns[1].PickList属性将DBComboBox1的数据填充到列中，实现数据表格中某一列的下拉选择功能。此外，还提及了创建日历表格的方法，建议数据库中相应字段设置为datetime类型。

摘要由CSDN通过智能技术生成

创建下拉列表

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