Переиспользование процедур событий формы для многозадачности в Delphi

Delphi , Компоненты и Классы , Свойства и События

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

Использование общих классов

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

unit TimerLogic;

interface

type
  TTimerLogic = class
  public
    procedure Tick;
  end;

implementation

procedure TTimerLogic.Tick;
begin
  // Общая логика обработки таймера
end;

end.

Делегирование событий

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

procedure PongForm.TickerTick(Sender: TObject);
begin
  // Логика таймера для PongForm
end;

ObstPongForm.Ticker.OnTick := PongForm.TickerTick;

Визуальное наследование

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

// В DFM файле ObstPongForm изменить Object на Inherited
Object ObstPongForm: TObstPongForm
  Inherited create nil;
  ...
end;

Распределённая логика

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

unit DataModule;

interface

type
  TDataModule = class(TDataModule)
  private
    FCounter: Integer;
    FOnResults: TNotifyEvent;
    FDataObject1: TDataObject;
    procedure LogicMethod;
  public
    property OnResults: TNotifyEvent read FOnResults write FOnResults;
  end;

implementation

procedure TDataModule.LogicMethod;
begin
  // Общая логика, которая может быть вызвана из разных мест
  Inc(FCounter);
  // Дополнительная логика, например, уведомление подписчиков
  if Assigned(FOnResults) then
    FOnResults(Self, FCounter, FDataObject1);
end;

end.

Заключение

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

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

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

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

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

:: Главная :: Свойства и События ::