登陆的问题？》 有点难度的哦~~~~~~~~~~~~~~~~~~~~~~~~~！(100分)

W

wtln

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-03

• #1

[?]请问 登陆对
在登陆对话框里 点击取消的时候，怎么能不让它弹出住窗体。

我想了好就怎么也想不出来。

代码:

[^]

 

Y

YFeral

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-03

• #2

兄弟，我有例程。这不是小菜一碟嘛。
在 www.Playicq.com上，不过现在不能上。
你有E-mail？我发给你也行。
http://www.playicq.com/dispdocnew.php?id=3751


给你写点吧

project 里
uses里加上
Controls;
begin
……
FormLogin := TFormLogin.Create(nil);
FormLogin.ShowModal;
if FormLogin.ModalResult = mrCancel then
Application.Terminate;

……
end;
在FormLogin的两个按钮里
确定按钮
begin
……
FormLogin.ModalResult := mrOk;
end;

取消按钮里
begin
……
FormLogin.ModalResult := mrCancel;
end;
//注意formLogin的 FormStyle 为fsNormal， BorderStyle 为bsDialog
//以上代码调试通过，放分吧。

 

F

followindy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-03

• #3

直接退出程序：
Application.Terminate;

 

A

Alex_Y

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-03

• #4

小菜一碟

 

娃

娃娃2672

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-04

• #5

project 里
begin
…
if FormLogin.ModalResult <> mrok then
Application.Terminate;

……
end;

确定按钮
begin
……
FormLogin.ModalResult := mrOk;
end;
取消按钮里可以不写代码.

 

Y

yifeibbs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-05

• #6

点击取消时，调用
Application.Terminate;

 

P

Puma_Soft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-05

• #7

begin
Application.Initialize;
Application.CreateForm(TdmClientConn, dmClientConn);
frmUserLogin:=TfrmUserLogin.Create(Application);
if frmUserLogin.ShowModal=mrOk then
begin
Application.CreateForm(TfrmMain, frmMain);
frmUserLogin.Free;
Application.Run;
end;
end.

 

W

wtln

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-11

• #8

Application.Terminate;

不好用啊？~~~~~~~！

怎么还是 往出弹主窗体呢啊？

 

L

Lyte Zeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-13

• #9

１、工程文件uses子句加上controls。
２、语句如下修改：
begin
Application.Initialize;
LoginFrm := TLoginFrm.Create(Application);
LoginFrm.ShowModal;
if LoginFrm.ModalResult = mrCancel then
Application.Terminate;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

 

Y

yanghaijun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-13

• #10

同意楼上的,直接在工程文件中进行登录对话...

 

我

我就是菜鸟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-13

• #11

exit

 

O

oiwin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-13

• #12

halt (不太好)