0

Имеется кусок кода. При закрытии окна авторизации (NPay) промигивает основная программа (Main) и программа завершается. Как устранить мигание?

Кусок кода из главного тела программы:
procedure TMain.FormCreate(Sender: TObject);
begin
    NPay:=TNPay.Create(Self);
    NPay.ShowModal;
end;

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

Кусок из авторизации:
procedure TNPay.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Application.Terminate;
end;
5
  • 1
    суровый у вас способ закрытия приложений. зачем вам terminate в главной форме? вы форму авторизации при успехе просто скрываете что ли?
    – teran
    14 дек 2017 в 13:19
  • Хмм, а ведь и правда просто скрываю. 14 дек 2017 в 13:22
  • 2
    обычно там пишут а-ля try r := f.showModal(); if(r = mrCancel) .... finally f.free(); в общем модальные окна имеют результат показа, используйте его.
    – teran
    14 дек 2017 в 13:25
  • Естественно будет мигать, вы показываете модально форму авторизации в момент создания основной формы, затем после закрытия формы авторизации создание главной формы продолжится и даже покажется, а затем произойдет "самоубийство" программы. Я так понимаю TMain - главная форма приложения, тогда не понимаю зачем в событии его закрытия убивать приложение? 15 дек 2017 в 3:13
  • Если пользователь не авторизовавшись - закроет NPay, то Main не должна открыться, как это реализовать более наглядным (новичковым?) способом? 21 дек 2017 в 14:25

1 ответ 1

4

В dpr файле пишем

begin
  Application.Initialize;
  if not TNPay.Login then
    Exit;
  Application.CreateForm(TMain, Main);
  Application.Run;
end.

В классе TNPay пишем

class function TNPay.Login: Boolean;
var
  LForm: TNPay;
begin
  LForm := TNPay.Create(nil);
  try
    Result  := (LForm.ShowModal = mrOk) and LForm.ValidateLogin;
  finally
    LForm.Free
  end;
end;

function TNPay.ValidateLogin: Boolean;
begin
  // Здесь проверяем корректность логина и возвращаем True/False
end;

Все FormClose убрать

UPDATE

Если есть желание долбить пользователя, пока он не введет нужного пароля, то делать так

class function TNPay.Login: Boolean;
var
  LForm: TNPay;
begin
  LForm := TNPay.Create(nil);
  try
    repeat
      Result := LForm.ShowModal = mrOk;
    until not Result or LForm.ValidateLogin;
  finally
    LForm.Free
  end;
end;

при желании в цикл можно добавить подсчет числа попыток

Cnt := 0;
repeat
  Result := LForm.ShowModal = mrOk;
  Inc(Cnt);
until not Result or (Cnt > 5) or LForm.ValidateLogin;
if Result and (Cnt > 5) then
  Result := LForm.ValidateLogin;
7
  • один раз ввел и все, на выход? :)
    – teran
    14 дек 2017 в 13:39
  • @teran Убедил :) 14 дек 2017 в 13:46
  • 1
    Изначально предлагал такой вариант автору Открытие авторизации перед основной формой, однако заминусовали, что не рекомендуется писать код в файл проекта, и что это моветон... 15 дек 2017 в 3:16
  • @VasilBaymurzin Почитал. Полный бред. Это единственно правильный вариант. А адептов OnCreate хочется убивать. Там я написал почему 15 дек 2017 в 9:39
  • 1
    @AntonShchyrov Корпоративный стандарт - слышали про такое? Или только про доктора? У нас (и не только у нас, знаю не по наслышке) TeamSupport обязателен, раньше был RR. У меня IDE убивало. Поэтому и не советую 15 дек 2017 в 15:22

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.