firemonkey开发app（手势gesture）

原创于 2020-02-07 17:36:57 发布 · 651 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#gesture

delphi rio 同时被 2 个专栏收录

89 篇文章

订阅专栏

FMX

24 篇文章

订阅专栏

本文介绍如何在多设备应用项目中使用toolbar、speedbutton、tabcontrol等组件，并通过手势控制实现tab切换，包括组件配置、代码实现及imagelist组件设置。

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;