Problem with TNextTabAction Android compiled with Delphi10.2.2 - All right when compiled with Delphi 10.2.1 or Windows

0

Hello I just has installed Delphi 10.2.2 and i has try to make a new android app this app have:

  • - 2 speedbutton
  • - 1 TTabControl with some TTabItem 
  • - 1 Actionlist with 2 standard action (TNextTabAction and TPreviousTabAcion)  

 

The ActionLists are linked to TTabControl (TabControl = TabControl1) and also to the two button.

The problem is that when, on my phone, i press the Next speedbutton tha app freeze

The SDK was downloaded automatically by Delphi setup and i think it is correct

Thanks for help

  • Accepted Answer

    Monday, January 08 2018, 10:38 PM - #Permalink
    0

    Does the app work as expected when you run it on Windows?  Have you tried running it with the debugger turned on?  Are you able to share the code for the form?

    The reply is currently minimized Show
  • Responses (2)
    • Accepted Answer

      Wednesday, January 10 2018, 04:16 AM - #Permalink
      0

      resolved, is a bug

      see

      https://quality.embarcadero.com/browse/RSP-19525

       

      The reply is currently minimized Show
    • Accepted Answer

      Tuesday, January 09 2018, 01:48 AM - #Permalink
      0

      I'm sorry, i try to attach file but i receive an error. I must copy the Unit1.pas and Unit1.fmx here:

       

      unit Unit1;

       

      interface

       

      uses

        System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,

        FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.TabControl,

        System.Actions, FMX.ActnList, FMX.StdCtrls, FMX.Controls.Presentation;

       

      type

        TForm1 = class(TForm)

          ToolBar1: TToolBar;

          SpeedButton1: TSpeedButton;

          SpeedButton2: TSpeedButton;

          TabControl1: TTabControl;

          TabItem1: TTabItem;

          TabItem2: TTabItem;

          TabItem3: TTabItem;

          TabItem4: TTabItem;

          TabItem5: TTabItem;

          ActionList1: TActionList;

          NextTabAction1: TNextTabAction;

          PreviousTabAction1: TPreviousTabAction;

        private

          { Private declarations }

        public

          { Public declarations }

        end;

       

      var

        Form1: TForm1;

       

      implementation

       

      {$R *.fmx}

       

      end.

      ---------------------------------------------------------------------------

       

      object Form1: TForm1

        Left = 0

        Top = 0

        Caption = 'Form1'

        ClientHeight = 480

        ClientWidth = 640

        FormFactor.Width = 320

        FormFactor.Height = 480

        FormFactor.Devices = [Desktop]

        DesignerMasterStyle = 0

        object ToolBar1: TToolBar

          Size.Width = 640.000000000000000000

          Size.Height = 40.000000000000000000

          Size.PlatformDefault = False

          TabOrder = 0

          object SpeedButton1: TSpeedButton

            Action = PreviousTabAction1

            Align = Left

            Enabled = True

            ImageIndex = -1

            Size.Width = 80.000000000000000000

            Size.Height = 40.000000000000000000

            Size.PlatformDefault = False

          end

          object SpeedButton2: TSpeedButton

            Action = NextTabAction1

            Align = Right

            Enabled = True

            ImageIndex = -1

            Position.X = 560.000000000000000000

            Size.Width = 80.000000000000000000

            Size.Height = 40.000000000000000000

            Size.PlatformDefault = False

          end

        end

        object TabControl1: TTabControl

          Align = Client

          Size.Width = 640.000000000000000000

          Size.Height = 440.000000000000000000

          Size.PlatformDefault = False

          TabIndex = 0

          TabOrder = 1

          TabPosition = PlatformDefault

          Sizes = (

            640s

            414s

            640s

            414s

            640s

            414s

            640s

            414s

            640s

            414s)

          object TabItem1: TTabItem

            CustomIcon = <

              item

              end>

            IsSelected = True

            Size.Width = 70.000000000000000000

            Size.Height = 26.000000000000000000

            Size.PlatformDefault = False

            StyleLookup = ''

            TabOrder = 0

            Text = 'TabItem1'

          end

          object TabItem2: TTabItem

            CustomIcon = <

              item

              end>

            IsSelected = False

            Size.Width = 70.000000000000000000

            Size.Height = 26.000000000000000000

            Size.PlatformDefault = False

            StyleLookup = ''

            TabOrder = 0

            Text = 'TabItem2'

          end

          object TabItem3: TTabItem

            CustomIcon = <

              item

              end>

            IsSelected = False

            Size.Width = 70.000000000000000000

            Size.Height = 26.000000000000000000

            Size.PlatformDefault = False

            StyleLookup = ''

            TabOrder = 0

            Text = 'TabItem3'

          end

          object TabItem4: TTabItem

            CustomIcon = <

              item

              end>

            IsSelected = False

            Size.Width = 70.000000000000000000

            Size.Height = 26.000000000000000000

            Size.PlatformDefault = False

            StyleLookup = ''

            TabOrder = 0

            Text = 'TabItem4'

          end

          object TabItem5: TTabItem

            CustomIcon = <

              item

              end>

            IsSelected = False

            Size.Width = 70.000000000000000000

            Size.Height = 26.000000000000000000

            Size.PlatformDefault = False

            StyleLookup = ''

            TabOrder = 0

            Text = 'TabItem5'

          end

        end

        object ActionList1: TActionList

          Left = 192

          Top = 192

          object NextTabAction1: TNextTabAction

            Category = 'Tab'

            TabControl = TabControl1

          end

          object PreviousTabAction1: TPreviousTabAction

            Category = 'Tab'

            TabControl = TabControl1

          end

        end

      end

       

       

      The reply is currently minimized Show
    Your Reply

    Please login to post a reply