请教高手

Question

我想动态创建一个窗体,但这个窗体是从已有的窗体复制或继承下来的,然后保存在数据库里,请问这个怎么写? 有例子最好,谢谢.

Answer 1

var
  NewForm :TBaseForm;
begin
  NewForm := TBaseForm.Create(self);
  NewForm.Show;
end;

Answer 2

delphi持久性及流機制能實現嗎?

Answer 3

把窗体保存在数据库里我不懂,不过前面那两个问题还可以回答:
---------------------------------------------
  TForm2 = class(TForm1)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
---------------------------------------------
procedure TForm2.FormCreate(Sender: TObject);
begin
  inherited;end;
---------------------------------------------
var
  myForm2:TForm2;
begin
  myForm2:=TForm2.Create(self);
  myForm2.Show ;
end;