Доступ к переменной основной формы из класса

Delphi , Компоненты и Классы , Модули

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

Проблема

Рассмотрим следующий пример кода, где у нас есть основная форма (Form1) и класс (TChild), который вызывается из этой формы. Мы хотим получить доступ к переменной основной формы из класса TChild.

Unit1:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unit2, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;
  Chiled: TChiled;
  Variable = 'dsadas';

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Chiled.ShowMainFormVariable;
end;

end.

Unit2:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TChiled = class
  private
  public
    procedure ShowMainFormVariable;
  end;

var
  Form1: TForm1;

implementation

procedure TChiled.ShowMainFormVariable;
begin
  ShowMessage(Form1.Variable);
end;

end.

При попытке добавить Unit1 в раздел uses в Unit2 возникает ошибка циклической ссылки.

Решение

Чтобы решить эту проблему, мы можем добавить Unit1 в раздел uses в секции implementation Unit2, как показано ниже:

Unit2:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TChiled = class
  private
    FForm1: TForm1;
  public
    procedure ShowMainFormVariable;
    property Form1: TForm1 read FForm1 write FForm1;
  end;

implementation

uses
  Unit1;

procedure TChiled.ShowMainFormVariable;
begin
  ShowMessage(FForm1.Variable);
end;

end.

Теперь нам нужно установить свойство Form1 класса TChiled на экземпляр формы Form1 перед вызовом метода ShowMainFormVariable, как показано ниже:

Unit1:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Chiled.Form1 := Form1;
  Chiled.ShowMainFormVariable;
end;

Альтернативные решения

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

1. Использование данных модуля (Data Module): Вы можете создать данные модуль, в котором будут храниться общие переменные, и оба юнита смогут получить доступ к ним без создания циклической ссылки.
2. Использование событий: Вместо того чтобы напрямую получать доступ к переменной основной формы, можно организовать обмен данными через события. Например, основная форма может отправлять уведомление, когда переменная меняется, а класс может подписаться на это событие и реагировать на изменения.
3. Использование паттерна "Наблюдатель" (Observer pattern): Этот паттерн позволяет объектам (наблюдателям) получать уведомления о changements состояния других объектов (субъектов). В нашем случае, класс может быть наблюдателем, а основная форма — субъектом, и класс будет получать уведомления о изменениях переменной через методы обновления.

Заключение

В данной статье мы рассмотрели проблему доступа к переменной основной формы из класса в Delphi и предложили решение, добавив юниту в раздел uses в секции implementation. Мы также рассмотрели альтернативные подходы, такие как использование данных модуля, событий и паттерна "Наблюдатель". Каждый подход имеет свои преимущества и недостатки, и выбор подхода будет зависеть от конкретных требований и особенностей проекта.

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

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

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

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

:: Главная :: Модули ::