关于制作登陆窗口问题(100分)

A

awaitpram

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #1

相信大家都开发过登陆窗口，在关闭窗口的时候，用什么事件可以把程序关闭掉呢？
用CloseQuery事件好像不行，因为我取消时用的时close，也会调用这个事件。不知道要如何做才能
解决这个问题。


：)，只能给你们100分了，因为我只乘下这么多了，下次多给点吧。

 

C

coolbaby

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #2

不太明白你的意思呀
application.terminate

 

Z

zhihuali

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #3

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
; Application.Terminate;
end;

 

B

billxu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #4

同意楼上。
这样就可以搞定。

 

A

awaitpram

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #5

是啊，本来这样是没有问题的啊，可是要是你按确定，你要如何关闭登录窗口呢？
我用的也是form.close啊，所以，也会调用那个close事件，这样不就按确定也会
把程序给关闭了吗？
我用过form.hide，好像也有点问题，对郊果不太满足啊。

 

J

jobsxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #6

取消CloseQuery事件；
关闭事件里application.terminate
确定事件里Close;

 

李

李清红

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #7

在登录窗口中设一布尔变量canEnter:=false，
如正常进入则canEnter:=true,
再把它传到主窗口，
在主窗口的Create事件中：
if canEnter= false then application.terminate;

 

狮

狮子王

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #8

同意‘zhihuali’的，他的代码是在主Form的show事件中的~！
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
; if Form1.ShowModal <>mrok then Application.Terminate;
end;

 

A

awaitpram

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-19

• #9

：)，真的很感谢大家 ，这个问题已经得到很好的解决了。
李清红和狮子王的方法都能符合我的要求。：)本来想一个给你们100分，可惜我的分数只有
这么可怜的一点。只能你们共享100啦。谢谢大家。