一个特别特别奇怪的现象！！！！高手请进

[hubo927]

我的一个数据库程序里有一个登陆对话框，上面有两个按钮‘’确定‘’，‘’退出‘’但是在单击‘退出’时，对话框和主窗口就狂闪，过一会就自动退出了，但是用同样的方法，我的上一个程序就一点问题都没有：下面是程序

‘退出’的onclick：
begin
mianform.close;
close;
end；

主窗口的onactivate：
var
temp:Tloginform;
begin
temp:=Tloginform.create(application);
try
temp.showmodal;
finally
temp.free;
end;
end;
两个程序都是一样的，上一个没有问题，但这一个就有问题，这是什么地方出问题了？

[hubo927]

以上各位说的都不行啊

[hnhb]

那段代码不要放在onFormActivate里,放到onPaint里,
先设一个变量
IsLogin,初值为False;
在OnPaint过程里这样:
procedure TfrmMain.FormPaint(Sender: TObject);
begin
if (not IsLogin) then //尚未登录则显示登录窗口
begin
IsLogin:=True;
frmLogin.ShowModal; //调用登录窗口
end;
end;

在登录窗口中,按退出的代码
Application.Terminate;

[idilent]

使用Application.Terminate看看
‘退出’的onclick：
begin
Application.Terminate
end；

[sheepcyk]

finally
temp.free;去掉
在loginform的onclose事件里写 action:=cafree;

begin
close;
mianform.close;
end；