Закрытие форм в Delphi с определённым ClientID в названии

Delphi , Программа и Интерфейс , Заголовок формы

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

Контекст указывает на то, что при попытке использовать свойство Application.Forms в коде на Object Pascal (Delphi) возникает ошибка, так как Application.Forms не является объявленным идентификатором. В ответ на это сообщество указало, что вместо Application.Forms следует использовать Screen.Forms.

Теперь давайте шаг за шагом разберёмся, как правильно закрыть формы с определённым ClientID в названии.

procedure CloseFormsWithClientID(const ClientID: string);
var
  I: Integer;
  Form: TForm;
begin
  // Проверяем, что строка ClientID не пуста
  if ClientID <> '' then
  begin
    // Перебираем все формы, доступные через экран (Screen)
    for I := Screen.Forms.Count - 1 downto 0 do
    begin
      Form := Screen.Forms[I];
      // Проверяем, содержит ли форма ClientID в своём заголовке
      if Pos(ClientID, Form.Caption) > 0 then
      begin
        // Закрываем форму
        Form.Close;
      end;
    end;
  end;
end;

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

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

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

type
  TFormWithClientID = class(TForm)
  private
    FClientID: string;
  public
    property ClientID: string read FClientID write FClientID;
  end;

procedure TFormWithClientID.SetClientIDValue(const Value: string);
begin
  // Логика установки ClientID, например, сохранение в базу данных
  FClientID := Value;
end;

procedure CloseFormsWithClientIDAttribute;
var
  I: Integer;
  Form: TFormWithClientID;
begin
  // Перебираем все формы
  for I := Screen.Forms.Count - 1 downto 0 do
  begin
    Form := TFormWithClientID(Screen.Forms[I]);
    // Проверяем, если объект является TFormWithClientID и содержит нужный ClientID
    if Supports(Form, IInterface(TFormWithClientID)) and Form.ClientID = ClientID then
    begin
      // Закрываем форму
      Form.Close;
    end;
  end;
end;

В этом примере мы создаём новый тип формы TFormWithClientID, который включает в себя свойство ClientID. Это позволяет избежать необходимости проверки заголовка формы и делает код более модульным и переносимым.

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

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

Контекст статьи связан с решением проблемы закрытия всех форм в среде разработки Delphi, содержащих определённую строку `ClientID` в своём заголовке, и обсуждаются различные подходы к этой задаче.

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

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

:: Главная :: Заголовок формы ::