Долгое нажатие на элементе ListView

[Rusland]

Нужно при долгом нажатии на элементе вызывать форму. Как сделать? 

 

И как обработать нажатие кнопочек ">"?

Изменено 7 октября, 2015 пользователем Rusland

[Равиль Зарипов (ZuBy)]

жесты использовать, LongTap есть такое

[Rusland]

Посмотрел вот тут пример http://docwiki.embarcadero.com/CodeExamples/Seattle/en/OnGesture_(Delphi)  Компонент GestureManager обязателен?

uses FMX.Gestures;

{ ... }

procedure TFormMain.ListViewPVGesture(Sender: TObject;
  const [Ref] EventInfo: TGestureEventInfo; var Handled: Boolean);
var
  S: String;
begin
  if GestureToIdent(EventInfo.GestureID, S) then
    ShowMessage(S)
  else
    ShowMessage('Could not translate gesture identifier');
end;

 

При долгом нажатии получаю "Could not translate gesture identifier". Почему? Процедура то вызывается... выходит что долгий Тап отрабатывается. А как понять какой Item вызвал процедуру?

 

 

PS. В Touch -> InteractiveGestures -> LongTap выставлено True.

Изменено 7 октября, 2015 пользователем Rusland

[umkes]

uses System.UITypes

 

if (EventInfo.GestureID = igiLongTap) then begin

Изменено 7 октября, 2015 пользователем umkes

[Равиль Зарипов (ZuBy)]

Посмотрел вот тут пример http://docwiki.embarcadero.com/CodeExamples/Seattle/en/OnGesture_(Delphi)  Компонент GestureManager обязателен?

uses FMX.Gestures;

{ ... }

procedure TFormMain.ListViewPVGesture(Sender: TObject;
  const [Ref] EventInfo: TGestureEventInfo; var Handled: Boolean);
var
  S: String;
begin
  if GestureToIdent(EventInfo.GestureID, S) then
    ShowMessage(S)
  else
    ShowMessage('Could not translate gesture identifier');
end;

 

При долгом нажатии получаю "Could not translate gesture identifier". Почему? Процедура то вызывается... выходит что долгий Тап отрабатывается. А как понять какой Item вызвал процедуру?

 

 

PS. В Touch -> InteractiveGestures -> LongTap выставлено True.

как вариант, Item то уже выбран

s := Listview1.Items[listview1.itemindex].text;

[umkes]

Или 

ListView1.Selected.Text

[Равиль Зарипов (ZuBy)]

 

Или 

ListView1.Selected.Text

в RX10 нет такого!

[Rusland]

как вариант, Item то уже выбран

s := Listview1.Items[listview1.itemindex].text;

Что-то я стормозил... действительно же нужный Item уже будет Selected. 

 

 

 

 

Или 

ListView1.Selected.Text

 

в RX10 нет такого!

 

Я вот так обращаюсь:

TListViewItem(ListViewPV.Selected).Text

[Rusland]

Осталось только понять: Стрелочка ">" - это кнопка или что? Можно ли на нее нажать отдельно от всего Item-a?

[Равиль Зарипов (ZuBy)]

Осталось только понять: Стрелочка ">" - это кнопка или что? Можно ли на нее нажать отдельно от всего Item-a?

нет это же картинка, там есть ButtonText