通过字符串，类的引用，创建窗体

原文地址：通过字符串，类的引用，创建窗体作者：xxhh

//控件单元。
　　{*
　　单元说明： 创建模式窗口，和非模式窗口的类，保证非模式窗口只创建一次。
　　作者 ： 笔名：易 一 英文名：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;
　　end.
　　//调用单元
　　procedure TMainForm.mmiAreaClick(Sender: TObject);
　　begin
　　 //
　　 YShowFormClass.ShowModalForm(TFormArea);
　　end;
　　(*
　　procedure TMainForm.mmiAreaClick(Sender: TObject);
　　begin
　　 //
　　 YShowFormClass.ShowModalForm('TFormArea');
　　end;
　　initialization
　　begin
　　 RegisterClasses([TAboutBox,TFormArea]);
　　end;
　　finalization
　　begin
　　 UnRegisterClasses([TAboutBox,TFormArea]);
　　end; *)