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 that you have read and understand our privacy policy and code of conduct.

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