2014년 9월 24일 수요일

OnMouseClick event is used for Short Touch event in Button or ListBox, etc.
Delphi in FireMonkey do not provide a Long touch event separately.
Android or iOS smart device determines a long Touch time about 0.7 to 1.0 seconds normally .
Thus, Long Touch can be determined by measuring the count timer 0.1 seconds while pressing the button or any other objects.

//***************************************************************************************
// Long Touch
// Called once every 0.1 seconds -> When the 8th call is a Long touch
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ClickInterval := ClickInterval + 1;