小弟在Application.run之前加了一个密码登陆窗口,基本功能已经实现,但是有个取消键想用于退出系统,由于不能用Terminate方法,只能用close,

Question

为什么不能用terminate?
那用什么？
application.halt;//你不可能用的吧：）、、//是强制退出；
exit;//还没有试过；

Answer 1

如果不想用Terminate就用设计一个函数login，返回True(登录成功）或False（取消登录退出).program xxx;
...
function login : Boolean;
var
  LoginForm : TLoginForm;
begin
  LoginForm := TLoginForm.Create(Application);
  Result := LoginForm.ShowModal=mrOK;
  LoginForm.Free;
end;
...
begin
  ...
  if login then
  begin
    ...
    Application.Run;
  end;
end.

Answer 2

dpr文件可以做一些修正。
if LoginForm.ShowModal = mrOK then
begin
  Application.CreateForm(...);
  ...
  Application.Run;
end;

Answer 3

我想Application没有用的原因是不是该登陆窗口创建在Application。Run之前？