nd_testpanel.~pas

该例子讲解delphi的构件编程方法

unit ND_TestPanel;

interface

uses
  SysUtils, Classes, Controls, ExtCtrls,StdCtrls,Dialogs;

type
  TND_TestPanel = class(TCustomPanel)
  private
    { Private declarations }
    m_ctr_OKBtn:TButton;
    m_ctr_InputEdt:TEdit;
    m_ctr_InfoLbl:TLabel;

    FInputStr:string;
  protected
    { Protected declarations }
    procedure DoWith_OnBtnClick(Sender: TObject);

    procedure SetInputStr(AStr:string);
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;

  published
    { Published declarations }
    property InputStr:string read FInputStr write SetInputStr;
//    property InputStr:string read FInputStr write FInputStr;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('咖啡室小件', [TND_TestPanel]);
end;

{ TND_TestPanel }

constructor TND_TestPanel.Create(AOwner: TComponent);
begin
  inherited;

//  showmessage('constructor TND_TestPanel.Create(AOwner: TComponent);');

  self.m_ctr_OKBtn:=TButton.Create(self);
  self.m_ctr_OKBtn.Parent:=self;
  self.m_ctr_OKBtn.Left:=10;
  self.m_ctr_OKBtn.Top:=10;
  self.m_ctr_OKBtn.Caption:='确定';

  self.m_ctr_InputEdt:=TEdit.Create(self);
  self.m_ctr_InputEdt.Parent:=self;
  self.m_ctr_InputEdt.Left :=self.m_ctr_OKBtn.BoundsRect.Right+10;
  self.m_ctr_InputEdt.Top:=self.m_ctr_OKBtn.Top;
  self.m_ctr_InputEdt.Text:='请输入';

  self.m_ctr_InfoLbl:=TLabel.Create(self);
  self.m_ctr_InfoLbl.Parent:=self;
  self.m_ctr_InfoLbl.Left:=self.m_ctr_OKBtn.Left;
  self.m_ctr_InfoLbl.Top:=self.m_ctr_OKBtn.BoundsRect.Bottom+10;
  self.m_ctr_InfoLbl.Caption:='查询信息.........';

  self.m_ctr_OKBtn.OnClick:=self.DoWith_OnBtnClick;

end;

destructor TND_TestPanel.Destroy;
begin
//  showmessage('destructor TND_TestPanel.Destroy;');

//  if self.m_ctr_OKBtn<>nil then self.m_ctr_OKBtn.Free;
//  if self.m_ctr_InputEdt<>nil then self.m_ctr_InputEdt.Free;
//  if self.m_ctr_InfoLbl<>nil then self.m_ctr_InfoLbl.Free;

  inherited;
end;

procedure TND_TestPanel.DoWith_OnBtnClick(Sender: TObject);
begin
  self.m_ctr_InfoLbl.Caption:='请稍等，正在搜索'+self.m_ctr_InputEdt.Text+'......';
end;

procedure TND_TestPanel.SetInputStr(AStr: string);
begin
  self.FInputStr:=AStr;
  self.m_ctr_InputEdt.Text:=self.FInputStr;
end;

end.