Application.CreateForm(TForm1, Form1)后,那么form1.free可以把form1从内存中完全卸载掉吗?

Question

在onclose事件里
Action ：= cafee

Answer 1

在onclose事件里
Action ：= cafee 

Answer 2

有一个函数，可以测试窗体是否被释放 
好像 assing 什么的

Answer 3

1。大哥们，我不是在onClose里要用到。
2。我还要使用的！
3。举个列子：
   adoDataSet1.first;
   for i:=1 to 10000 do
     begin
        if not AdoDataSet1.eof then
         application.createform(TForm1,form1);
         form1.label1.caption:=AdoDataSet1.fieldbyname('name').asstring;
         adoDataSet1.next;
         form1.free; 
        end;
     end;
我有类似的东西。为什么i很大的时候提示资源不够呀

Answer 4

  通过Application.CreateForm(TForm1, Form1)创建是在Application对象结束时自动释放的。
  若想释放，这样写，
  Form1:= TForm.Create(Self);
  try
    Form1.ShowModal;
  finally
    Form1.Free;
  end;

Answer 5

  通过Application.CreateForm(TForm1, Form1)创建是在Application对象结束时自动释放的。
  若想释放，这样写，
  if not Assigned(Form1) then
  Form1:= TForm.Create(Self);
  try
    Form1.ShowModal;
  finally
    Form1.Free;
    Form1:=nil;
  end;

Answer 6

你不要用application.createform(TForm1,form1);来创建.
用Form1:= TForm.Create(Self);

Answer 7

man8888:
  终于又碰到你了.
  我是采用你的TQuReview窗体的代码(你曾经贴出来过)
  在你的窗体里,我在"下一页"里填写的代码:
  frmSHow.adoDataSet1.next
  if not frmSHow.adoDataSet1.eof then
  begin
      .....
      
  end;
  必须是ShowModal吗?SHow不行?

Answer 8

[Error] Unit1.pas(30): Incompatible types: 'TForm2' and 'TForm'