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

【 tulaoshi.com - 编程语言 】

　　//控件单元。

　　{*
　　单元说明：     创建模式窗口，和非模式窗口的类，保证非模式窗口只创建一次。
　　作者        ：     笔名：易  一    英文名：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; *)