ucreat.pas

来自「抛砖引玉,有很大启发」· PAS 代码 · 共 43 行

unit uCreat;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  Tfcreat = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
   procedure Creat(AClassName : string);
  end;

var
  fcreat: Tfcreat;

implementation

uses uName;

{$R *.dfm}

procedure Tfcreat.Button1Click(Sender: TObject);
begin
 Creat('TfName');
end;

procedure Tfcreat.Creat(AClassName: string);
begin
 if GetClass(AClassName)<>nil then
  TFormClass(FindClass(AClassName)).Create(self).Show; //如果为nil同样会创建多份实例
end;

initialization
 RegisterClass(TfName);

end.