盒子论坛 v2.1

左边是自动创建（也就是加载）的，右边是可用的模块。如果想需要时再加载，就从左边的列表中干掉它。需要的时候，自己Create。
like this..

var
  f:TForm;
begin
  f:=TForm.Create(nil);
  //do with f here
  f.free;
end;

----------------------------------------------
-

作者：

sefox (OldFox)	★☆☆☆☆	-
	盒子活跃会员

2004/2/5 15:16:42

5楼：

我已经将不需要的窗口移到右边了，可是不知怎么才能打开它

不能用 .show，是吧？！！！！

请指教
----------------------------------------------
给口饭吃吧，各位......

作者：

axsoft (axsoft)	★☆☆☆☆	-
	盒子活跃会员

2004/2/5 15:33:03

6楼：

一般的，自己创建，自己释放。如果只是想创建一次，请先初始化变量为nil。
比如Form1:TForm1，你可以直接用这个全局的Form1，也可以自己再声明变量。
启动时：
  Form1:=nil;
当需要Form1时：
  if not Assigned(Form1) then Form1:=TForm1.Create(nil);
  Form1.Show;

----------------------------------------------
-

作者：

sefox (OldFox)	★☆☆☆☆	-
	盒子活跃会员

2004/2/5 16:00:26

7楼：

用 Application.CreateForm 是不是可以创建一个窗口
但如何暂时清除一个不需要的窗口？？？？
----------------------------------------------
给口饭吃吧，各位......

作者：

lovedelphi1 (梦之铃)	★☆☆☆☆	-
	盒子活跃会员

2004/2/5 18:38:10

8楼：

if not Assigned(form2) then
    form2 := TForm2.Create (Application);
form2.Show;

//释放
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TForm2.formDestroy(Sender: TObject);
begin
  Form2 := nil;
end;
----------------------------------------------
-

信息

登陆以后才能回复