unit2.pas

Delphi面向对象编程思想附书源码 好用哦！

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

unit Unit2;

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

Type
  TControlClass =class of TControl;
  TControlFactory=class
  public
    class function createControlObj(AOwner:TWinControl ;ControlClass:TControlClass):TControl;
  end;

implementation

class function TControlFactory.createControlObj(AOwner:TWinControl ;ControlClass:TControlClass):TControl;
var
  FControlObj:TControl;
begin
  FControlObj:=ControlClass.Create(AOwner);
  FControlObj.Parent:=AOwner;
  FControlObj.Name:=FControlObj.ClassName;
  FControlObj.SetBounds(10,10,250,150);
  result:=FControlObj;
end;

end.