dianpanel.~pas

下拉选择控件,可以实现快速找到要输入的名称

unit DianPanel;

interface

uses
  SysUtils, Classes, Controls, ExtCtrls,ADODB;

type
  TDianPanel = class(TCustomPanel)
  private
    FAdoData:TAdoData;
  protected
    { Protected declarations }
  public
     constructor Create(Aowner:Tcomponent);override;
     destructor destroy;override;
  published
     property Align;
     property Caption;
     property AdoData:TAdoDataSet read FAdoData write FAdoData;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('DianComp', [TDianPanel]);
end;

{ DianPanel }

constructor TDianPanel.create(Aowner: Tcomponent);
begin
  inherited;

end;

destructor TDianPanel.destroy;
begin
   inherited;
end;

end.