Translating OnClick to OnTouch (or something similiar)?

Question

I am new to smart phone development. I am using Delphi Xe5 to create a test application I can port to Android and IPhone.

I have a FireMonkey Mobile Application in which I have a TlistBox on the main form. I want the user to select an item in the list and I then display some information based on their selection in another form.

I currently use the ListBox's OnClick event to do this

However, when testing on devices, it seems that I have to touch it more than once (almost like a double click with a mouse).

Am I suppose to be using some kind of touch event? Gestures?

If so, how would I get the index of the selected item?

Example OnClick event

procedure TfrmProjects.lbxProjectsClick(Sender: TObject);
begin
 ShowMessage(IntToStr(lbxProjects.ItemIndex));
end;

EDIT:

I have looked at the GestureManager and tied it to the ListBox's Touch property Gesture Manager, but can't seem to find a simple OnTouch

Thanks

Does the event fire when you touch then release because OnClick doesn't usually fire until the mouse button is released? — Marcus Adams

Ken White Ken White · Accepted Answer · 2013-11-06T23:30:32

For TListBox, you simply use the OnChange event. There's no TGestureManager required; changes to the selection via a tap are automatically routed there:

procedure TForm1.ListBox1Change(Sender: TObject);
var
  Item: TListBoxItem;
begin
  Item := ListBox1.Selected;
  if Assigned(Item) then
    ShowMessage(Format('Item %d text is %s', [Item.Index, Item.Text]))
  else
    ShowMessage('No item selected');
end;

You might want to spend some time with the Samples that are provided for FireMonkey Mobile. (You can find them from the XE5 item in your Start menu; there's a Samples link that opens the folder.) There are two separate folders that are helpful, the FireMonkeyMobile and the MobileCodeSnippets; both of them contain some good demo projects. There are also several tutorials in the documentation at Mobile Tutorials in the docwiki at Embarcadero.

Translating OnClick to OnTouch (or something similiar)?

2 Answers