Ошибка при закрытии форм в Delphi: корректный выход из системы

Delphi , Программа и Интерфейс , Формы

При разработке приложений на Delphi, разработчики часто сталкиваются с задачей корректного закрытия форм и выхода из системы. В данной статье мы рассмотрим типичную проблему, связанную с закрытием активных форм при выходе пользователя, и предоставим пошаговое решение, основанное на лучших практиках программирования в среде Delphi.

Проблема

Когда пользователь нажимает на кнопку выхода, активные формы в приложении не закрываются, что приводит к нежелательному отображению нескольких окон одновременно.

Контекст

В коде, представленном в вопросе, используется процедура KELUAR1Click, которая должна обрабатывать выход из системы. При подтверждении выхода, формы становятся невидимыми или недоступными, но фактически не закрываются. Также используется процедура FormClose для каждой формы, которая предназначена для освобождения ресурсов, но не выполняет их корректного закрытия.

Альтернативный ответ

В альтернативном ответе разработчик пытается решить проблему аналогичным образом, но ошибка сохраняется, возможно, из-за того, что не все формы были созданы или открыты.

Подтвержденный ответ

Основываясь на обратной связи, было выяснено, что просто присвоение nil указателям на формы не приводит к их закрытию. Для корректного закрытия формы следует вызвать метод Close. Также важно использовать блоки begin...end для выполнения нескольких команд в случае, если условие истинно.

procedure Tf_utama.KELUAR1Click(Sender: TObject);
begin
  if MessageDlg('Logout ??', mtConfirmation, mbOKCancel, 0) = mrOK then
  begin
    DATAINPUTAN1.Visible := False;
    INFODATA1.Enabled := False;
    TRANSAKSI.Enabled := False;
    LAPORAN1.Enabled := False;
    PENGATURAN1.Enabled := False;

    if Assigned(f_databuku) then f_databuku.Close;
    if Assigned(f_rakbuku) then f_rakbuku.Close;
    // ... аналогично для других форм ...

    StatusBar1.Panels[0].Text := 'Nama Pengguna :';
    StatusBar1.Panels[1].Text := 'Hak Akses :';
  end;
end;

Использование проверки на Assigned предотвращает возможные исключения, если форма не была создана.

Использование TFormContainer

Для более удобного управления формами можно использовать контейнер, например, класс TFormContainer, где формы будут добавляться и удаляться по мере необходимости. Это упрощает процесс закрытия всех форм при выходе из системы.

type
  TFormContainer = class
  private
    FForms: TList<TForm>;
    procedure Release;
  public
    constructor Create;
    destructor Destroy; override;
    procedure AddForm(AForm: TForm);
    procedure RemoveForm(AForm: TForm);
  end;

{ TFormContainer }

constructor TFormContainer.Create;
begin
  FForms := TList<TForm>.Create(True);
end;

destructor TFormContainer.Destroy;
begin
  Release;
  inherited;
end;

procedure TFormContainer.Release;
var
  Form: TForm;
begin
  Form := FForms.First;
  while Assigned(Form) do
  begin
    RemoveForm(Form);
    Form := FForms.First;
  end;
end;

procedure TFormContainer.AddForm(AForm: TForm);
begin
  FForms.Add(AForm);
end;

procedure TFormContainer.RemoveForm(AForm: TForm);
begin
  if Assigned(AForm) and AForm.HandleAllocated then
  begin
    AForm.Close;
    FForms.Remove(AForm);
    AForm := nil;
  end;
end;

Теперь, при выходе из системы, достаточно пройтись по списку форм в контейнере и закрыть каждую из них.

procedure Tf_utama.KELUAR1Click(Sender: TObject);
begin
  if MessageDlg('Logout ??', mtConfirmation, mbOKCancel, 0) = mrOK then
  begin
    // Скрыть или отключить элементы меню и статус-бар
    // ...

    // Закрыть все формы в контейнере
    f_FormContainer.Release;

    // Обновить статус в статус-баре
    // ...
  end;
end;

Заключение

При выходе из системы в приложениях на Delphi важно корректно закрывать все активные формы. Использование метода Close для каждой формы и проверка на Assigned перед закрытием помогает избежать ошибок. Применение контейнера для форм упрощает управление формами и обеспечивает их корректное закрытие.

Создано по материалам из источника по ссылке.

Статья рассматривает проблему корректного закрытия форм в среде разработки Delphi при выходе из приложения.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Формы ::