Лидеры

Ага, не обратил внимания. Тогда только ваш способ. Получается косяк в справке, т.к. там написано procedure TForm1.ListView1ButtonClick(const Sender: TObject; const AItem: TListViewItem; const AObject: TListItemSimpleControl); begin ShowMessage(AItem.Text + ' ' +AItem.ButtonText + ' is clicked.'); end; т.е. мой способ был бы рабочим если бы в событии приходил TListViewItem, а не TListItem. p.s. Пруф на справку: http://docwiki.embarcadero.com/RADStudio/Seattle/en/Mobile_Tutorial:_Using_LiveBindings_to_Populate_a_ListView_%28iOS_and_Android%29#Step_5:_Adding_the_onButtonClick_Event_Handler

А разве TListItem хранит Objects? Сейчас нет Делфи проверить

не знаю как такое делается на C++, но в Delphi так ShowMessage(AItem.Text + ' ' + TListViewItem(AItem).ButtonText + ' is clicked');

внизу архив

Да, довольно неприятная проблема, мне помогло пределение версии именно в модуле формы, с помощью вот такой монструозной конструкции: https://github.com/errorcalc/TEsGroupBar/blob/master/Demo/uMain.pas#L36 Стоит отметить что CompilerVersion не работает должным образом.

Как динамически добавлять картинки в этот компонент? На андроиде не работает? Не могу запустить проект на android'e пустой экран Чтобы заработало на Android нужно стиль грузить в ресурсы... Ярослав, Вынесите в след. версии два метода в public (нижний) procedure GoToNext(const Animate: Boolean = True); procedure GoToPrevious(const Animate: Boolean = True); чтобы можно было реализовать переключение картинок жестами ещё вот эти не помешают function IsFirstImage: Boolean; function IsLastImage: Boolean; Вот еще может реализуете такую штуку, в режиме слайда и ImagesCount = 1 чтобы не переключались картинки procedure TfgFlipViewSlidingPresentation.ShowNextImage(const ANewItemIndex: Integer; const ADirection: TfgDirection; const AAnimate: Boolean); begin AssertIsNotNil(Model); inherited; if (csDesigning in ComponentState) or not AAnimate then begin if ImageContainer <> nil then ImageContainer.Bitmap.Assign(Model.CurrentImage); Model.FinishChanging; end else begin if Model.ImagesCount = 1 then begin exit; end; if (FNextImageContainer <> nil) and (FNextImageAnimator <> nil) and (FImageAnimator <> nil) then begin FNextImageContainer.Bitmap.Assign(Model.CurrentImage); InitAnimatorParams(ADirection); FImageAnimator.Start; FNextImageContainer.Visible := True; FNextImageAnimator.Start; end; end; end;