//-------------------------------------
//  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.