OrangeUI

通常，我们会在App首页的滚动控件上放一个ImageListViewer，

滚动控件可以是ScollBox，ListBox或ListView，
它们都具有上下滑动的功能，
而ImageListViewer具有左右切换图片的功能，
这样一来，当我在ImageListViewer左右切换图片时，
很容易造成滚动控件的上下滑动，
十分影响用户体验，
 
正确的效果应该是，
我在ImageListViewer上垂直切换时滚动控件才会上下滑动，
其他情况下，ImageListViewer都应该能切换图片，
 
如何解决这种手势冲突呢?
 
所有滚动控件都是从ScrollControl继承的，
ScrollControl有两个手势管理组件，
VertControlGestureManager和HorzControlGestureManager，
VertControlGestureManager用来处理上下滑动，上下惯性滚动等，
我们需要把VertControlGestureManager.IsNeedDecideFirstGestureKind设置为True，
IsNeedDecideFirstGestureKind为True了之后，
表示每次开始手势滑动ScrollControl时，都需要先滑动一段距离，
然后VertControlGestureManager判断出滑动的方向为上下垂直方向之后，
才响应上下滚动，
当ScrollControl上面放了ImageListViewer之后，
只需要手势滑动在ImageListViewer上时需要判断上下垂直方向，
在ImageListViewer之外的地方则不需要判断，
如下箭头所示:

那就要编写VertControlGestureManager.OnPrepareDecidedFirstGestureKind事件，
这个事件会传入鼠标滑动所在的位置，
如果鼠标滑动位置在ImageListViewer中，
那么需要判断上下垂直方向，
如果不在ImageListViewer中，那么不需要判断方向，
ScrollBox处理的代码如下:

procedure TFrameHome.DoScrollBoxVertManagerPrepareDecidedFirstGestureKind(
Sender: TObject; AMouseMoveX, AMouseMoveY: Double;
var AIsDecidedFirstGestureKind: Boolean;
var ADecidedFirstGestureKind: TGestureKind);
var
APlayerOriginPoint:TPointF;
AFirstItemRect:TRectF;
begin
//传给ScrollBox的是相对窗体的绝对坐标
//广告轮播Item的绘制区域
APlayerOriginPoint:=PointF(0,0);
APlayerOriginPoint:=imgPlayer.LocalToAbsolute(APlayerOriginPoint);
AFirstItemRect:=RectF(APlayerOriginPoint.X,APlayerOriginPoint.Y,
APlayerOriginPoint.X+Self.imgPlayer.Width,
APlayerOriginPoint.Y+Self.imgPlayer.Height
);
if PtInRect(AFirstItemRect,PointF(AMouseMoveX,AMouseMoveY)) then
begin
//在广告轮播控件内,那么要检查初始手势方向
end
else
begin
//不在在广告轮播控件内,那么随意滑动
//AIsDecidedFirstGestureKind表示我已经确定好方向了，不需要再判断了
//ADecidedFirstGestureKind表示判断好的方向
AIsDecidedFirstGestureKind:=True;
ADecidedFirstGestureKind:=TGestureKind.gmkVertical;
end;
end;
 
初始设置代码如下:
Self.sbClient.Prop.VertControlGestureManager.IsNeedDecideFirstGestureKind:=True;
Self.sbClient.Prop.VertControlGestureManager.OnPrepareDecidedFirstGestureKind:=
Self.DoScrollBoxVertManagerPrepareDecidedFirstGestureKind;
 
 
ListBox处理的代码如下:

procedure TFrameShop.DoListBoxVertManagerPrepareDecidedFirstGestureKind(
Sender: TObject; AMouseMoveX, AMouseMoveY: Double;
var AIsDecidedFirstGestureKind: Boolean;
var ADecidedFirstGestureKind: TGestureKind);
var
AFirstItemRect:TRectF;
begin
//广告轮播Item的绘制区域
AFirstItemRect:=Self.lbHome.Prop.Items[0].ItemDrawRect;
if PtInRect(AFirstItemRect,PointF(AMouseMoveX,AMouseMoveY)) then
begin
//在广告轮播控件内,那么要检查初始手势方向
end
else
begin
//不在在广告轮播控件内,那么随意滑动
AIsDecidedFirstGestureKind:=True;
ADecidedFirstGestureKind:=TGestureKind.gmkVertical;
end;
end;
 
初始设置代码如下:
Self.lbHome.Prop.VertControlGestureManager.IsNeedDecideFirstGestureKind:=True;
Self.lbHome.Prop.VertControlGestureManager.OnPrepareDecidedFirstGestureKind:=
Self.DoListBoxVertManagerPrepareDecidedFirstGestureKind;