Создание Погруженных Кнопок `TButton` в Delphi: Трюки и Решения

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

Создание Погруженных Кнопок TButton в Delphi: Трюки и Решения

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

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

Компонент TButton в Delphi не имеет встроенного состояния "нажатости". Это связано с тем, что под капотом TButton использует стандартный Windows-контрол BUTTON, который также не имеет такого состояния. Однако, есть способы обойти это ограничение.

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

Один из способов - использовать компонент TCheckBox или TRadioButton, которые на самом деле являются подклассами стандартного Windows-контрола BUTTON, но с поддержкой стиля BS_PUSHLIKE. Этот стиль заставляет кнопку выглядеть и вести себя как кнопка с подсветкой, которая кажется "вдавленной" при нажатии и выпуклым, когда отпущена.

type
  TButtonCheckBox = class(StdCtrls.TCheckBox)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

procedure TButtonCheckBox.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := Params.Style or BS_PUSHLIKE;
end;

Свойство Checked компонентов TCheckBox или TRadioButton позволяет имитировать состояние "нажатости".

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

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

Модификация TButton

Вместо использования TCheckBox или TRadioButton, можно модифицировать сам TButton, используя стили BS_PUSHLIKE и BS_CHECKBOX, и убрать стиль BS_PUSHBUTTON. Это позволит преобразовать стандартный TButton в "переключатель", который может быть включен и выключен по нажатию.

type
  TButton = class(StdCtrls.TButton)
  private
    FChecked: Boolean;
    FPushLike: Boolean;
    procedure SetPushLike(Value: Boolean);
    procedure Toggle;
    procedure CNCommand(var Message: TWMCommand); message CN_COMMAND;
  protected
    procedure SetButtonStyle(ADefault: Boolean); override;
    procedure CreateParams(var Params: TCreateParams); override;
    procedure CreateWnd; override;
    // Другие переопределенные методы...
  published
    property Checked;
    property PushLike: Boolean read FPushLike write SetPushLike;
  end;

Эти изменения позволяют использовать свойство Checked для переключения состояния кнопки между "вдавленной" и "выпуклой".

Группировка Кнопок

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

type
  TToggleButton = class(TButton)
  private
    FChecked: Boolean;
    FGroupIndex: Integer;
    procedure Toggle;
    procedure CNCommand(var Message: TWMCommand); message CN_COMMAND;
    procedure SetGroupIndex(const Value: Integer);
    procedure TurnSiblingsOff;
  // Другие методы...
  published
    property Checked;
    property GroupIndex: Integer read FGroupIndex write SetGroupIndex;
  end;

С помощью метода TurnSiblingsOff можно отключать другие кнопки в группе, когда одна из них активируется.

Заключение

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

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

Контекст: Описание проблемы и решение по созданию "погруженных" кнопок `TButton` с состоянием "нажатости" в среде разработки Delphi, а также анализ альтернативных компонентов и методов модификации стандартного поведения.

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

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

:: Главная :: Кнопки ::