學習紀錄

這個問題其實我覺得應該要原廠直接改的

現在在W10 或是筆電其實都開始有做觸碰

可能沒有重觸這類的動作(Delphi也沒這樣的事件哈哈) 

但是很基本的長壓滑動這應該是很基本的。

感謝阿卍的教學

可以將 FMX.Platform.Win.pas 複製到你的專案工程目錄內, 再修改 TPlatformWin.GetScrollingBehaviour 函數, 修改如下:

function TPlatformWin.GetScrollingBehaviour: TScrollingBehaviours;
var
Value: Integer;
begin
Value := GetSystemMetrics(SM_DIGITIZER);
if ((Value and NID_READY) = NID_READY) and (((Value and NID_MULTI_INPUT) = NID_MULTI_INPUT)) then
Result := [TScrollingBehaviour.Animation, TScrollingBehaviour.TouchTracking]
else
Result := [TScrollingBehaviour.Animation, TScrollingBehaviour.TouchTracking]; // 手勢滑動
end;