盒子论坛 v2.1

大致场景:
form1中, 点击一个按纽,来创建form2;

form2中,有一个"退出按纽". 此按纽是调用form1中的定时器来关闭form2;
==========

form1中.

点击一个按纽,创建form2,并显示

procedure TForm1.Button3Click(Sender: TObject);
begin
  if form2=nil then
    form2:=tform3.Create(Self);

  form2.Show;
end;

同时,放一个定时器,用于关闭form2;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled:=False;
  form2.DisposeOf;
  form2:=nil;

  //form1.Show; 才可以解决黑屏.(但会闪一下)
end;

==========
form2中,放一个按纽,用于"关闭窗口".

procedure Tform2.Button1.OnClick(Sender);
begin
  form1.Timer1.Enabled:=True;
end;

==========

但是, 当定时器执行时, 把form2释放后, 后机就处于黑屏状态.

这时,除非在定时器执行完后,再加一个

form1.Show; 才可以解决黑屏.(但会闪一下)

----------

求教大侠:

1>.form关闭自身,有没有其它更好的方法?

2>.我上述笨方法中,关闭form2时, 如何可以不闪一下?

感谢各位大侠的指点!
----------------------------------------------
...

作者：

tuesdays (Tuesday)	▲▲▲▲△	-
	普通会员

2019/11/11 15:14:45

1楼：

先隐藏, 再释放.
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.

作者：

aknightchen (.)	★☆☆☆☆	-
	盒子活跃会员

2019/11/11 18:09:08

2楼：

感谢 tuesdays.

效果非常非常好.

如下代码:

form2.hide;
form2.DisposeOf;
----------------------------------------------
...

信息

登陆以后才能回复