怎么实现点击一个按钮，就动态出现一个FORM

Question

如题,另外动态出现的FORM很复杂,能不能事先做好,然后动态调用?

Answer 1

我晕我倒
看到分数面子上
procedure TForm1.Button1Click(Sender: TObject);
begin
  with TForm2.Create(Appplication) do
  begin
    try
      ShowModal;
    finally
      Free;
    end;
  end;
end;

Answer 2

请您帮忙帮到底.
这样一来FORM2这个对象就可以像FORM1一样用了吗?
怎样跟FORM2上面加控件呢?还有我题目中的第二问请您也解答下!

Answer 3

如果你不停的点按钮,最好在动态生成一人form后,给它的name属性赋上一个不同于的值

Answer 4

你先把form2做好,里的控件,事件全部写好.
然后在from1中uses form2
接着就可以运行
procedure TForm1.Button1Click(Sender: TObject);
begin
  with TForm2.Create(Appplication) do
  begin
    try
      ShowModal;
    finally
      Free;
    end;
  end;
end;
来调出form2了

Answer 5

to DWGZ
完了。这下swamper粘上你了。
帮人帮到底吧！

Answer 6

那你就用全局窗体变量了
procedure TForm1.Button1Click(Sender: TObject);
begin
 if not assiged(Form2) then
 begin
   Form2 := TForm2.Create(Application);
   with TEdit1.Create(Form2) do
   bein
     Parent := Form2;
     Left := ..
     Top := ...
   end;
 end;
 Form2.ShowModal;
  end;

Answer 7

楼主还是看看系统中的例子和帮助吧。Delphi 有 demo.

Answer 8

不好意思打错了，
if not assigned(Form2) 以后调用就用Form2.什么了

Answer 9

有两种：
1:上面有用showmodal 显示模式窗体
2:先用if not assigned(formname)判断是否有相同的实例，再创建
并用show 显示非模式窗体

Answer 10

在窗体OnClose事件中加入：
  Action := caFree;

Answer 11

鸡生蛋，蛋生鸡。
帝国时代（征服1。0 a & c）玩的好吗？我高手，单条很少失手。我的着数很阴险啊！！
老家生农民，农民造老家，一切正常，不打仗25分钟可以升到帝国时代，人口200
我不想学DELPHI，我想玩帝国！！