退出画面的问题(100分)

Q

qweasdzxc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-12

• #1

我的程序想做一个退出画面，就是在主程序中点击退出时主画面隐藏，显示一个小的退出
画面，本以为很简单，但是我在退出的事件中写
form1.visible:=false;//主界面隐藏
formquit.visible:=true;//退出画面显示
但是显示出来就是一片灰，上面的东西都显示不出来。
我试着用这种办法调用程序中其他的form，结果都是一片灰，所以不会是这个form的某个属性
设置有误。
还望高手指点，谢谢！

 

G

giveup

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-12

• #2

不要在退出事件中，应该是CloseQuery事件中。

 

W

westboy2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-12

• #3

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
; Form1.Visible:=False;
; Form2.Visible:=True;
; Form2.Repaint;
; sleep(1000);
end;
我这样写就可以了，注意要加上Form2.Repaint，把Form2重新画一遍就行了。

 

P

panjf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-12

• #4

我想可以写在退出事件，
先把formquit设为手动CREATE，
在事件里写
form1.visible:=false;
formquit:=Tformquit.create(self);
formquit.update(好象是这个，记不得怎么拼了)
formquit.showm...([]又记不得了)
formquit.free;
formquit:=nil;
....

 

没

没理头号

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-12

• #5

你没有刷新窗口！
FORM1.UPDATE;

 

Q

qweasdzxc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-12

• #6

多人接受答案了。