unit4.pas

来自「Delphi面向对象编程思想附书源码 好用哦！」· PAS 代码 · 共 34 行

//------------------------------------------
//  Factory Method模式下的动态控件创建 V2.0
//  逻辑单元（TControlFactory）
//                    刘艺 2003/02/26
//------------------------------------------

unit Unit4;

interface
uses
  Windows, SysUtils, Classes,Controls, Forms;

Type
  TControlClass =class of TControl;
  TControlFactory=class
  private
    FControlObj:TControl;
  public
    constructor create(AOwner:TWinControl ;ControlClass:TControlClass);
  end;

implementation

constructor TControlFactory.create(AOwner:TWinControl ;ControlClass:TControlClass);
begin
  FControlObj:=ControlClass.Create(AOwner);
  FControlObj.Parent:=AOwner;
  FControlObj.Name:=FControlObj.ClassName;
  FControlObj.SetBounds(10,10,250,150);
  self:=TControlFactory(FControlObj);
end;

end.