Поиск сообщества

При использовании стилей (TStyleBook) не всплывают вложенные итемы. Если стиль отключить - все работает. Кто-то сталкивался? Embarcadero® Delphi 10.2 Version 25.0.26309.314

Процедура добавления 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 меню прикрутил в дизайне.

Собственно сабж, можно ли стилизовать бэкгрануд? И если да, то как стиль называется не подскажете?

Подскажите как сделать PopupMenu в TListView на мобильных системах? PopupMenu там не работает, он для Windows и OSX. Нужно при долгом нажатии в TListView показывать меню. Может в Delphi это можно сделать проще, чем создавать TListBox и просчитывать координаты? А если по другому никак, можно пример как это сделать? Спасибо. upd: Я просто думал возможно есть готовое решение, где можно просто указать в Design Time PopupMenu в TListView (как это делается в VCL) и оно будет показываться при длинном нажатии (т.е. не высчитывать самому координаты, центрируя его на экране и писать какой то код ).

Суть проблемы в том, что в WinXP (SP3), данный компонент не работает от слова совсем. Вместо меню получаем "Abstract Error". В других ОС все нормально.

Как добавлять новыe пункты меню (в VCL был NewItem) в TPopupMenu в режиме runtime в FMX? В режиме проектирования всё понятно. Спасибо.