有個小問題，該如何手勢滑動，像正常的APP那樣，平順的移動呢?

目前啟用LongTab ..也有試過其他的狀態效果差不多

if EventInfo.GestureID = sgiUp then
begin
ListView1.ScrollViewPos := ListView1.ScrollViewPos 40;
end;

這樣的寫法在listview上，由上往下滑一次，就只有位移40

是希望能同步Listview的Scroll
當今天划的距離較長則資料位移的範圍則較大

還是說一般不是這樣做的？？？

我自己的使用的經驗, 如果是在ListView中要捲動, 我並沒有去指定任何Scroll 的手勢, 系統會自動偵測你手勢的範圍, 如果小滑, 移動會少一些, 大滑(如由底部快速直滑到頂端), 就會捲動快幅度大, 所以不清楚你的感覺如何~~

謝謝P.D.的回覆

因為是希望他能夠在W10也有相同效果。放到安卓是可以直接滑動的

如這個動畫所示....
https://photos.app.goo.gl/sbCOAO6y83VSD5hB3

因為想做出小滑動跑一點 大滑動 跑多點的感覺

===================引 用 P.D. 文 章===================
我自己的使用的經驗, 如果是在ListView中要捲動, 我並沒有去指定任何Scroll 的手勢, 系統會自動偵測你手勢的範圍, 如果小滑, 移動會少一些, 大滑(如由底部快速直滑到頂端), 就會捲動快幅度大, 所以不清楚你的感覺如何~~

最直接的方式就是複製FMX.ListView.pas到你的專案目錄底下
修改function TListViewBase.HasTouchTracking: Boolean;
Result改成True就好了
在Windows的SystemInformationService的GetScrollingBehaviour沒有TouchTracking
所以在Create的時候就不會Create TAniCalculations元件來做滑動動畫
修改後基本上是不會對程式有影響的...

謝謝andy4234345的解說

這幾天測試一下。大感謝....

===================引 用 andy424345 文 章===================
最直接的方式就是複製FMX.ListView.pas到你的專案目錄底下
修改function TListViewBase.HasTouchTracking: Boolean;
Result改成True就好了
在Windows的SystemInformationService的GetScrollingBehaviour沒有TouchTracking
所以在Create的時候就不會Create TAniCalculations元件來做滑動動畫
修改後基本上是不會對程式有影響的...

Dear All


目前有兩個解法 一個是Andy 大大說的那個方法可行。
另一個是阿卍提供的解法

function TPlatformWin.GetScrollingBehaviour: TScrollingBehaviours;
Value: Integer;
Value := GetSystemMetrics(SM_DIGITIZER);
Result := [TScrollingBehaviour.Animation, TScrollingBehaviour.TouchTracking]
Result := [TScrollingBehaviour.Animation, TScrollingBehaviour.TouchTracking]; // 手勢滑動
end;


非常感謝兩位大大的幫忙.....