Создание стилизуемого контекстного меню для кнопки в Delphi XE2

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

Вопрос пользователя состоит в необходимости создания контекстного меню для кнопки с несколькими вариантами выбора (например, экспорт в PDF и экспорт в XLS) в среде разработки Delphi XE2. Меню должно появляться при наведении курсора мыши на кнопку или панель и быть выполнено в стиле VCL. Пользователь уже попробовал использовать TPopUpMenu, но столкнулся с неудобствами при его скрытии. В качестве альтернативы рассматривается возможность отображения меню по событию OnClick вместо OnEnter.

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

Для реализации контекстного меню в Delphi XE2 можно использовать компонент TButton со стилем bsSplitButton в сочетании с компонентом TPopupActionBar, который устанавливается в свойство DropDownMenu кнопки. Это меню будет появляться при нажатии на правую часть кнопки с стрелкой вниз. Однако стоит отметить, что данный компонент доступен только для операционных систем Vista и более поздних версий.

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

procedure TForm1.Button1Click(Sender: TObject);
var
  Pt: TPoint;
begin
  Pt := ClientToScreen(Point((Sender as TButton).Left, (Sender as TButton).Top));
  PopupActionBar1.Popup(Pt.X, Pt.Y + (Sender as TButton).Height);
end;

В данном примере кода при нажатии на кнопку Button1 вызывается процедура Button1Click, которая открывает контекстное меню PopupActionBar1 внизу кнопки.

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

Чтобы решить проблему, описанную пользователем, можно использовать следующий алгоритм:

1. Создать кнопку с разделителем (bsSplitButton) для отображения дополнительного меню.
2. Добавить компонент TPopupActionBar на форму.
3. Установить свойство DropDownMenu кнопки на только что созданный TPopupActionBar.
4. Реализовать обработчик события OnMouseEnter для кнопки, который будет отображать контекстное меню при наведении курсора мыши.

procedure TForm1.Button1MouseEnter(Sender: TObject);
begin
  // Отобразить контекстное меню под кнопкой
  Button1.DropDownMenu := True; // Автоматически отобразит PopupActionBar
end;

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

procedure TForm1.Button1Click(Sender: TObject);
var
  Pt: TPoint;
begin
  // Получаем координаты для отображения меню
  Pt := ClientToScreen(Point((Sender as TButton).Left, (Sender as TButton).Top + Sender.Height));
  // Отображаем меню внизу кнопки
  PopupActionBar1.Popup(Pt.X, Pt.Y);
end;

Пример кода для использования стилизуемого компонента (для Vista и выше)

Button1.Style := bsSplitButton;
Button1.DropDownMenu := PopupActionBar1;

Не забудьте добавить в PopupActionBar1 необходимые пункты меню, которые будут отображаться при активации меню.

Заключение

Мы рассмотрели, как можно создать стилизуемое контекстное меню для кнопки в Delphi XE2, используя компоненты VCL Stylable. Для более старых операционных систем использовался пример ручного отображения меню. Важно тестировать приложение в целевой среде, чтобы убедиться, что все стилизуемые элементы отображаются корректно.

Используйте предложенные решения в зависимости от требований к вашему приложению и версий целевых операционных систем.

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

Пользователь просит создать стилизуемое контекстное меню для кнопки в среде разработки Delphi XE2, которое включает в себя функции экспорта в PDF и XLS и должно появляться при наведении или клике, с использованием VCL.

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

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

:: Главная :: Меню ::