Проблемы с сохранением несуществующих свойств в файле FMX при наследовании TFrame

Delphi , Программа и Интерфейс , Приложение своё

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

Описание проблемы

При создании кастомизированного фрейма (TFrame) от класса, унаследованного от TFrame, дизайнер начинает сохранять в файле FMX несуществующие свойства, например, ClientHeight и ClientWidth. Это приводит к ошибкам tanto при попытке разместить фрейм на форме, как при создании фрейма во время выполнения.

Пример кода

Давайте рассмотрим простой пример кода, который демонстрирует данную проблему:

unit UnitBaseFrame;

interface

uses
  SysUtils, System.Classes, System.StartUpCopy,
  FMX.Forms, FMX.TabControl;

type

  TBaseInTabFrame = class(TFrame)
  private
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;

implementation

{ TBaseInTabFrame }

constructor TBaseInTabFrame.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
end;

destructor TBaseInTabFrame.Destroy;
begin
  inherited Destroy;
end;

end.

unit UnitInheritedFrame;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  UnitBaseFrame,
  FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls;

type
  TInheritedFrame = class(TBaseInTabFrame)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.fmx}

end.

Решение проблемы

Решением данной проблемы является использование ключевого слова inherited вместо object при определении экземпляра унаследованного фрейма в файле FMX. Это позволяет фрейму наследовать визуальные свойства от родительских классов.

Пример исправленного файла FMX:

inherited InheritedFrame: TInheritedFrame
  Left = 0
  Top = 0
  // Другие свойства фрейма
end

Альтернативное решение

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

Для добавления фрейма на форму во время выполнения можно использовать следующую процедуру:

procedure AddFrameToForm(Form: TForm; Frame: TFrame);
begin
  Frame.Parent := Form;
  Form.Controls.Add(Frame);
end;

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

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

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

Статья посвящена решению проблемы сохранения несуществующих свойств в файле FMX при наследовании TFrame в Delphi.

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

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

:: Главная :: Приложение своё ::