【图】通过字符串,类的引用,创建窗体

　　//控件单元。

　　{*
　　单元说明：     创建模式窗口，和非模式窗口的类，保证非模式窗口只创建一次。
　　作者        ：     笔名：易一    英文名：yeeyee
　　E-Mail     ：    jane1437@163.com
　　创建时间：          2005年5月20日
　　及最后修改时间：
　　修改人修改时间及：
　　修改说明：
　　版权声明：      版权所有，转载请注明本人邮箱和笔名。
　　*}
　　unit ShowFormClass;

　　interface

　　uses
　　 SysUtils, Classes,Dialogs, Forms;

　　type
　　 TShowFormClass = class(TComponent)
　　 private
　　    { Private declarations }
　　    //保存要创建的窗体的类名
　　    FFrmName:string;
　　    //判断窗体是否存在。
　　    function IsFormExist:boolean;
　　    //得到窗体。
　　    function GetExistForm:TForm;
　　    //创建一个类
　　    function CreateAClass(const AClassName: string): TForm;
　　 protected
　　    { Protected declarations }
　　 public
　　    { Public declarations }
　　    constructor Create(AOwner: TComponent); virtual;
　　    destructor Destroy; override;
　　
　　    //创建并显示窗体。模式窗体。
　　    procedure ShowModalForm(const AStrForm:string);overload;
　　    procedure ShowModalForm(AFormClass:TFormClass);overload;
　　    //创建并显示窗体。非模式窗体。
　　    procedure ShowModalLessForm(const AStrForm:string);overload;
　　    procedure ShowModalLessForm(AFormClass:TFormClass);overload;

　　 published
　　 { Published declarations }
　　 end;

　　procedure Register;

　　implementation

　　
　　procedure Register;
　　begin
　　 RegisterComponents('Yeeyee', [TShowFormClass]);
　　end;

　　constructor TShowFormClass.Create(AOwner: TComponent);
　　begin
　　 inherited Create(AOwner);
　　end;

　　destructor TShowFormClass.Destroy;
　　begin
　　 inherited Destroy;
　　end;

　　function TShowFormClass.GetExistForm:TForm;
　　var
　　 i:integer;
　　begin
　　 for i := 0 to (Application.ComponentCount - 1) do
　　 begin
　　    if (Application.Components[i] is TForm) then
　　    begin
　　      //注意，关键判断这个类型名称是否存在。
　　      if (application.Components[i] as TForm).ClassType.ClassName = FFrmName then
　　      begin
　　        Result:=(application.Components[i] as TForm);
　　        exit;
　　      end
　　    end;
　　 end;
　　end;

　　function TShowFormClass.IsFormExist:boolean;
　　var
　　 i:integer;
　　begin
　　 Result:=False;
　　 for i := 0 to (Application.ComponentCount - 1) do
　　 begin
　　    if (Application.Components[i] is TForm) then
　　    begin
　　      //注意，关键判断这个类型名称是否存在。
　　      if (application.Components[i] as TForm).ClassType.ClassName = FFrmName then
　　      begin
　　        Result:=True;
　　        exit;
　　      end
　　    end;
　　 end;
　　end;

　　//创建一个类
　　function TShowFormClass.CreateAClass(const AClassName: string): TForm;
　　var
　　 LFormClass : TFormClass;
　　 LForm: TForm;
　　begin
　　 LFormClass := TFormClass(FindClass(AClassName));
　　 LForm := LFormClass.Create(Application);
　　 Result := LForm;
　　end;

　　//创建并显示窗体。模式窗体。传入字符串。
　　procedure TShowFormClass.ShowModalForm(const AStrForm:string);
　　var
　　 LForm: TForm;
　　begin
　　 FFrmName:=AStrForm;
　　 LForm := CreateAClass(FFrmName);
　　 try
　　 LForm.ShowModal;
　　 finally
　　 LForm.Free;
　　 end;
　　end;

　　//创建并显示窗体。模式窗体。传入类的引用。
　　procedure TShowFormClass.ShowModalForm(AFormClass:TFormClass);
　　begin
　　 with AFormClass.Create(Application) do
　　 begin
　　    try
　　      ShowModal;
　　    finally
　　      Free;
　　    end;
　　 end;
　　end;

　　//创建并显示窗体。模式窗体。传入字符串。
　　procedure TShowFormClass.ShowModalLessForm(const AStrForm:string);
　　var
　　 LForm: TForm;
　　begin
　　 FFrmName:=AStrForm;
　　 //窗体不存在，则创建。
　　 if not IsFormExist then
　　 begin
　　    LForm := CreateAClass(FFrmName);
　　    LForm.Show;
　　 end
　　 else
　　 begin
　　    //存在，则得到窗体。带到最前头。
　　    LForm:=GetExistForm;
　　    LForm.BringToFront;
　　 end;
　　end;

　　//创建并显示窗体。模式窗体。传入类的应用。
　　procedure TShowFormClass.ShowModalLessForm(AFormClass:TFormClass);
　　var
　　 LForm: TForm;
　　begin
　　 FFrmName:=AFormClass.ClassName;
　　 //窗体不存在，则创建。
　　 if not IsFormExist then
　　 begin
　　    LForm := CreateAClass(FFrmName);
　　    LForm.Show;
　　 end
　　 else
　　 begin
　　    //存在，则得到窗体。带到最前头。
　　    LForm:=GetExistForm;
　　    LForm.BringToFront;
　　 end;
　　end;