AlexRusSoft

Попробуем оживить тему, потому что очень актуально. Набросал простенький проект на котором воспроизводится этот баг, в проекте нет ничего лишниго.

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Controls.Presentation,
  FMX.StdCtrls, FMX.Layouts;

type
  TForm1 = class(TForm)
    VertScrollBox1: TVertScrollBox;
    bOrderExample: TButton;
    procedure FormCreate(Sender: TObject);
  private
    procedure CreateButton();
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.CreateButton;
var
  newButton: TButton;
begin
  newButton := TButton.Create(bOrderExample);
  newButton.BeginUpdate;
  newButton.Align := bOrderExample.Align;
  newButton.Size := bOrderExample.Size;
  newButton.EndUpdate;
  newButton.Parent := VertScrollBox1;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i := 1 to 50 do
    CreateButton;
end;

end.

VertScrollBox1 имеет позиционирование по всей форме, в нем находится кнопка bOrderExample, она имеет позиционирование по верху.

При старте проекта динамически создаю 50 кнопок, которые также как и первая создаются внутри скрол панели. При попытки проскролить панель, при попытке повернуть экран приложение либо зависает намертво либо вообще вылетает.

"при попытке повернуть экран" У меня такая проблема возникла при установки стиля через стайлбук