创建一个Form叫Form1,
把这个Form在Auto-Create列表中去掉var
Form1:TForm1
Begin
Form1:= TForm1.Create(nil);//Q1
Form1.ShowModal;//Q2
Form1.Free;//Q3
End;第二个怕是有点难,我曾经用过非常不标准的
Form1.Release来做的,若用Form1.Free就会非法操作。
把这个Form在Auto-Create列表中去掉var
Form1:TForm1
Begin
Form1:= TForm1.Create(nil);//Q1
Form1.ShowModal;//Q2
Form1.Free;//Q3
End;第二个怕是有点难,我曾经用过非常不标准的
Form1.Release来做的,若用Form1.Free就会非法操作。
用什么代码实现,1、表单不显示出来,而放在内存中;2、将运行时第一个表单从内存中删除,而不影响其他表单;3、将表单从内存中显示出来
//。。
1:不要让显示在AUTO CREATE里边
在PROJECT下的OPTION里的FORMS里;
2:如果它不是互相调用的,//循环调用的话,应该没有问题;
onclose//写
procedure Tm_gbjbxxform.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
action:=cafree;
end;
//不能是主窗体
3:
1)application.create(Tyourform,yourform)
show or showmodal;
2)yourform:=Tyourform.create(nil/application)//任先一个;
show or showmodal;show or showmodal;//两种方法不同,那么,其free方法也不同;
4、将表单从内存中删除
yourform.free;
yourform:=nil;