• 0
Авторизация  
Ильдар

Не всплывают вложенные итемы Popup

Вопросы

При использовании стилей (TStyleBook) не всплывают вложенные итемы. Если стиль отключить - все работает.

Кто-то сталкивался?

Embarcadero® Delphi 10.2 Version 25.0.26309.314

 

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

0 ответов на этот вопрос

Ответы на этот вопрос пока отсутствуют

Для публикации сообщений создайте учётную запись или авторизуйтесь

Вы должны быть пользователем, чтобы оставить комментарий

Создать учетную запись

Зарегистрируйте новую учётную запись в нашем сообществе. Это очень просто!

Регистрация нового пользователя

Войти

Уже есть аккаунт? Войти в систему.

Войти
Авторизация  

  • Похожий контент

    • От x11
      Процедура добавления Item
       
      procedure TfmEditObject.AddPhoto(Image: TBitmap); Var item: TListBoxItem; imageV: TImageViewer; begin item := TListBoxItem.Create(lbPhotos); item.parent := lbPhotos; item.text := ''; item.Width := lbPhotos.Width; item.PopupMenu := PopupMenu1; imageV := TImageViewer.Create(lbPhotos); imageV.HitTest := False; imageV.Parent := item; imageV.Align := TAlignLayout.Client; imageV.Bitmap.Assign(image); item.SetFocus; end; У popupmenu есть 2 пункта, привязанных к Action.
       
      Gestures срабатывает на "long tap"
      procedure TfmEditObject.lbPhotosGesture(Sender: TObject; const EventInfo: TGestureEventInfo; var Handled: Boolean); var c: IControl; ListBox: TListBox; lbxPoint: TPointF; ListBoxItem: TListBoxItem; begin if EventInfo.GestureID = igiLongTap then if (sender is TListBox) and assigned(TListBox(sender).Selected) then begin c := ObjectAtPoint(EventInfo.Location); if Assigned(c) then if Assigned(c.GetObject) then if c.GetObject is TListBox then begin ListBox := TListBox(c.GetObject); lbxPoint := ListBox.AbsoluteToLocal(EventInfo.Location); ListBoxItem := ListBox.ItemByPoint(lbxPoint.X, lbxPoint.Y); if Assigned(ListBoxItem) then PopupMenu1.Popup(lbxPoint.X, lbxPoint.Y); Handled := True; end; end; end;  
      Ставил точку останова, видно, что до строки "PopupMenu1.Popup(lbxPoint.X, lbxPoint.Y);" доходит.
      Если программа работает на Windows, то меню отображается по правой кнопке мышки, а на андроид устройстве меню не отображается по Long Tap.
       
      Как видно из кода, то меню прикручивается к ListBoxItem, а непосредственно к TListBox меню прикрутил в дизайне.
    • От Winexcel
      Собственно сабж, можно ли стилизовать бэкгрануд? И если да, то как стиль называется не подскажете?
    • От ENERGY
      Подскажите как сделать PopupMenu в TListView на мобильных системах? 
      PopupMenu там не работает, он для Windows и OSX. Нужно при долгом нажатии в TListView показывать меню.
      Может в Delphi это можно сделать проще, чем создавать TListBox и просчитывать координаты? А если по другому никак, можно пример как это сделать?
      Спасибо.
      upd: 
      Я просто думал возможно есть готовое решение, где можно просто указать в Design Time PopupMenu в TListView (как это делается в VCL) и оно будет показываться при длинном нажатии (т.е. не высчитывать самому координаты, центрируя его на экране и писать какой то код ). 
    • От Dinkin
      Добрый день!
      Необходим эффект редактирования текста через PoupMenu. То есть жму правой кнопкой мыши,появляется поуп с поле ввода текста у курсора...это возможно реализовать в FireMonkey?
    • От DirtyBorov
      Суть проблемы в том, что в WinXP (SP3), данный компонент не работает от слова совсем.  Вместо меню получаем "Abstract Error". В других ОС все нормально.
    • От wassail
      Как добавлять новыe пункты меню (в VCL был NewItem)  в TPopupMenu в режиме runtime в FMX?
      В режиме проектирования всё понятно.
      Спасибо.
       
  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу