开发学院软件开发Delphi 通过字符串,类的引用,创建窗体 阅读

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

 2006-02-04 14:01:45 来源:WEB开发网   
核心提示://控件单元,{*单元说明: 创建模式窗口,通过字符串,类的引用,创建窗体,和非模式窗口的类,保证非模式窗口只创建一次, if not IsFormExist then begin LForm := CreateAClass(FFrmName); LForm.Show; end else begin /

//控件单元。

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

Tags:通过 字符串 引用

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接