firemonkey开发app（手势gesture）

winfredzhang

于 2020-02-07 17:36:57 发布

阅读量557

点赞数

分类专栏： delphi rio FMX 文章标签： gesture

本文链接：https://blog.csdn.net/winniezhang/article/details/104212947

版权

delphi rio 同时被 2 个专栏收录

89 篇文章 2 订阅

订阅专栏

FMX

24 篇文章 1 订阅

订阅专栏

1、新建multidevic-application工程项目。

2、toolbar+speedbuttonX2+layout-》tabcontrol+gesturemanager+actionlist等组件。

  SpeedButton1.Name := 'SpeedButton1';
  SpeedButton1.Parent := ToolBar1;
  SpeedButton1.Action := PreviousTabAction1;
  SpeedButton1.Align := Left;
  SpeedButton1.StyleLookup := 'arrowlefttoolbutton';

  SpeedButton2.Name := 'SpeedButton2';
  SpeedButton2.Parent := ToolBar1;
  SpeedButton2.Action := NextTabAction1;
  SpeedButton2.Align := Right;
  SpeedButton2.StyleLookup := 'arrowrighttoolbutton';

imagelist组件设置。

tabcontrol属性设置。

tabitem1-4属性设置。0-3

actionlist属性设置。

tabcontrol手势控制代码。

procedure TForm1.TabControl1Gesture(Sender: TObject; const EventInfo: TGestureEventInfo; var Handled: Boolean);
begin
  case EventInfo.GestureID of
    sgiLeft:
      begin
        TabControl1.Previous();
        Handled := True;
      end;
    sgiRight:
      begin
        TabControl1.Next();
        Handled := True;
      end;
  end;

end;