Преодоление Проблем с Пользовательскими Подклассами `TSwitch` в RAD Studio 10 Seattle: Инструкция по Решению

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

Преодоление Проблем с Пользовательскими Подклассами TSwitch в RAD Studio 10 Seattle: Инструкция по Решению

Вопрос, с которым сталкиваются разработчики, работающие с компонентом TSwitch в среде разработки RAD Studio 10 Seattle, заключается в том, что пользовательские подклассы этого компонента не реагируют на клики мыши и не позволяют устанавливать свойство IsChecked во время выполнения программы. Проблема возникает при динамическом создании объекта подкласса, в отличие от стандартного создания объекта TSwitch.

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

Используя Object Pascal, разработчик создал подкласс TLayoutSwitch, который наследуется от TCustomSwitch и реализует интерфейс ILayoutBaseControl. При создании объекта этого подкласса в runtime, он работает как обычный TSwitch, только если создать TSwitch напрямую. Однако, подкласс TLayoutSwitch не отвечает на события мыши и не позволяет изменять состояние переключателя (IsChecked) во время выполнения программы.

Контекст проблемы:

В коде подкласса TLayoutSwitch присутствуют дополнительные свойства и методы, которые, по всей видимости, не влияют на основную проблему с обработкой сообщений и установкой свойства IsChecked. Проблема кроется в том, как устанавливается объект-получатель (Receiver) в TSwitchModel, который используется для обработки сообщений.

Подтвержденное решение:

Проблема, описанная в запросе, связана с некорректным именованием подкласса TLayoutSwitch, которое вводит в заблуждение фреймворк FMX. Он пытается найти презентер с именем LayoutSwitch-style, которого не существует в стандартной библиотеке. Решением является изменение имени презентера на Switch-style, который используется стандартным компонентом TSwitch.

Для решения проблемы необходимо добавить обработчик события OnPresentationNameChoosing в конструктор подкласса TLayoutSwitch. Этот обработчик должен изменить имя презентера на Switch-style, что позволит подклассу вести себя как обычный TSwitch.

procedure TLayoutSwitch.ChoosePresentationName(Sender: TObject; var PresenterName: string);
begin
  PresenterName := 'Switch-style';
end;

constructor TLayoutSwitch.Create(Owner: TComponent);
begin
  inherited;
  OnPresentationNameChoosing := ChoosePresentationName;
  // Другие инициализации
end;

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

В запросе также упоминается, что проблема может быть связана с конструкцией TSwitchModel и установкой объекта-получателя. Однако, основное решение заключается в изменении имени презентера, как описано выше.

Комментарии и дополнительная информация:

В комментариях упоминается, что свойство IsChecked является читаемым и записываемым, и проблема не связана с его доступностью. Также обсуждается структура класса и способ его создания. Отмечается, что проблема была отмечена как баг в Embarcadero.

Заключение:

При работе с пользовательскими подклассами TSwitch в RAD Studio 10 Seattle, важно правильно настроить презентер, чтобы обеспечить корректную работу всех функций компонента. Используя предложенное решение, разработчики смогут избежать описанной проблемы и успешно использовать подклассы TSwitch в своих проектах.

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

Разработчики сталкиваются с проблемой в RAD Studio 10 Seattle, когда пользовательские подклассы `TSwitch` не реагируют на клики и не позволяют изменять состояние `IsChecked` во время выполнения, из-за ошибки в настройке презентера.

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

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

:: Главная :: Классы ::