动态生成窗体

Question

我想定义一个单元，这个单元放在工程中供其他单元使用。我想在这个单元定义一个类，用这个类
实现生成一个窗体，窗体上可以放一些控件和事件。以后调用这个单元的这个类时就可以动态的产生一个窗体。请问各位有资料共享吗？

Answer 1

Form1:=TForma1.Create(Self);
Form1.show;

Answer 2

wlbfeihu，不是这意思，我要求在一个独立的单元里定义一个类，在这个类里面用代码生成窗体，以及控件和事件！

Answer 3

要的是不是要我这个.
  有什么软件有可以①自定义报表②自定义菜单③自定义字段④自定义权限⑤自定义统计⑥自定义输入界面。⑦自定义流程⑧提供代码
可以解决!
有Delphi的强大、语法。易学易用的开发工具，只要一分钟建一个输入界面。不用花时间学编程，费心写软件。
WEBSize:http://www.yeepu.com/
请下载http://www.yeepu.com/download/setup_all.exe

Answer 4

要setup_all.exe文件干吗？我考虑的是如何用代码实现

Answer 5

我希望大家有个思路提示和代码参考，而不是需要gothis所提供的exe文件

Answer 6

unit Unit2;interfaceuses
  Forms, Classes;type
  TMyClass = Class
    constructor Create(AOwner: TComponent); 
    procedure CreateNewForm();
    destructor Destroy; override;
end;implementation{ TMyClass }constructor TMyClass.Create(AOwner: TComponent);
beginend;procedure TMyClass.CreateNewForm;
var
  MyForm : TForm;
begin
  try
    MyForm := TForm.Create(Application);
    MyForm.Width := 100;
    MyForm.Height := 100;
    MyForm.ShowModal;
  finally
    MyForm.Free;
  end;
end;destructor TMyClass.Destroy;
begin  inherited;
end;end.

Answer 7

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.BitBtn1Click(Sender: TObject);
var
  CreateForm : TMyClass;
begin
  CreateForm := TMyClass.Create(Application);
  CreateForm.CreateNewForm;
end;end.、、、、、、、、、、、、、、、、、、、、
以上主调单元代码。

Answer 8

其实一般你动态生成一个控件，要它显示出来的话，最重要的是要设定它的parent.比方下面的例子就是动态创建一个button的最基本代码。
procedure CreateBtn();
var
    Frm : TForm;
    Btn : TButton;
begin
   Frm := TForm.Create(Application);
   with Frm do
   begin
       width := 500;
       height := 500;
   end;
    Btn := TButton.Create(Frm);
    with Btn do
    begin
        Parent := Frm;
        //name := 'btn1';
        width := 50;
        height := 50;
        left := 100;
        top := 30;
    end;
end;

Answer 9

回ron_xin(星雨) ，我正是这个意思。

Answer 10

megin (我是菜鳥，我怕誰) 
可以参考 delphi 中的源代码,里面有 例子

Answer 11

我很菜，zhxfzhxf1(zhxfzhxf1)能具体说说“delphi 中的源代码,里面有 例子”的位置吗？