Создание кастомной кнопки меню в Windows с использованием Delphi и C++Builder

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

Создание кастомной кнопки меню в Windows с использованием Delphi и C++Builder

Вопрос создания кнопки меню в Windows, соответствующей рекомендациям Microsoft по пользовательскому взаимодействию, является актуальным для разработчиков, использующих среду Delphi и C++Builder. В данной статье мы рассмотрим, как можно реализовать такую кнопку, не прибегая к использованию стандартных элементов панели инструментов или раздельных кнопок.

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

Согласно руководствам Microsoft по взаимодействию пользователя с интерфейсом, существует определённый тип кнопки меню, которая должна иметь небольшую стрелку вниз, указывающую на наличие выпадающего меню. Такие кнопки не должны быть элементами панели инструментов и автоматически показывать меню при нажатии.

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

В более новых версиях Delphi, начиная с 2010, появились новые свойства для TButton, позволяющие создать кнопку меню. Свойство DropDownList можно ассоциировать с TPopupMenu, чтобы определить элементы меню, а свойство Style установить в значение bsSplitButton для получения кнопки с выпадающим меню.

Button1.Style := bsSplitButton;
Button1.DropDownList := PopupMenu1;

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

procedure TForm1.Button1Click(Sender: TObject);
var
  pt: TPoint;
begin
  pt.X := Button1.Left;
  pt.Y := Button1.Top + Button1.Height;
  pt := ClientToScreen(pt);
  PopupMenu1.Popup(pt.X, pt.Y);
end;

Если используется более ранняя версия Delphi, где TButton не поддерживает такие свойства, можно использовать TToolBar для создания кнопки меню.

Альтернативные способы

В качестве альтернативы можно использовать TBitBtn с нарисованным символом стрелки вниз в качестве графического элемента. Для этого можно использовать символ Unicode для стрелки вниз:

BitBtn1.Glyph := TFont.GlyphType(25BE);
BitBtn1.Alignment := taRightJustify;

Подтвержденный ответ

Для обеспечения консистентности, вместо использования позиции курсора, лучше использовать позицию самого контрола:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  pt: TPoint;
begin
  pt.X := BitBtn1.Left;
  pt.Y := BitBtn1.Top + BitBtn1.Height;
  pt := ClientToScreen(pt);
  PopupMenu1.Popup(pt.X, pt.Y);
end;

Использование символа Unicode для стрелки вниз может не отображаться корректно, если в используемом шрифте отсутствует данный символ. В таком случае лучше использовать битмап с изображением стрелки, выровненный по правой стороне кнопки.

Заключение

Создание кастомной кнопки меню в Windows с использованием Delphi и C++Builder требует внимания к деталям и понимания доступных компонентов и свойств. Используя предложенные выше методы, разработчики могут создать функциональные и стильные кнопки меню, соответствующие рекомендациям Microsoft.

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

Создание настраиваемой кнопки меню для операционной системы Windows с использованием среды разработки Delphi и C++Builder, соответствующей рекомендациям Microsoft по дизайну и взаимодействию с пользователем.

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

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

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