How to disable listbox scroll inside a TVertScrollBar

  

I have a TVertScrollBox and I have some components inside it.
One of them is a TListBox witch has some TListBoxItem.
That TListBox has the size of all of its items. So it doesn’t have a scrollbar.
I need that the scroll gesture over TListBox goes to TVertScrollBox. When I try to scroll in a listbox it do not scroll itself nor its parent.
It only can be tested in mobile. In windows we can not simulate, once mouse wheel is not the same event of scrooling by touching.
I already tried to send the events to its parent but it hasn’t worked so far.
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.Controls.Presentation, FMX.StdCtrls, FMX.ListBox,
FMX.Layouts;

type
TForm1 = class(TForm)
Button1: TButton;
VertScrollBox1: TVertScrollBox;
ListBox1: TListBox;
ListBoxItem1: TListBoxItem;
ListBoxItem2: TListBoxItem;
ListBoxItem3: TListBoxItem;
ListBoxItem4: TListBoxItem;
ListBoxItem5: TListBoxItem;
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 = 400
FormFactor.Width = 320
FormFactor.Height = 480
FormFactor.Devices = [Desktop]
DesignerMasterStyle = 0
object VertScrollBox1: TVertScrollBox
Position.X = 48.000000000000000000
Position.Y = 80.000000000000000000
Size.Width = 273.000000000000000000
Size.Height = 313.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
Viewport.Width = 257.000000000000000000
Viewport.Height = 313.000000000000000000
object Button1: TButton
Position.X = 104.000000000000000000
Position.Y = 352.000000000000000000
TabOrder = 1
Text = ‘Button1’
end
object ListBox1: TListBox
Position.X = 24.000000000000000000
Position.Y = 24.000000000000000000
Size.Width = 200.000000000000000000
Size.Height = 241.000000000000000000
Size.PlatformDefault = False
TabOrder = 2
DisableFocusEffect = True
DefaultItemStyles.ItemStyle = ”
DefaultItemStyles.GroupHeaderStyle = ”
DefaultItemStyles.GroupFooterStyle = ”
Viewport.Width = 196.000000000000000000
Viewport.Height = 237.000000000000000000
object ListBoxItem1: TListBoxItem
TabOrder = 0
Text = ‘ListBoxItem1’
end
object ListBoxItem2: TListBoxItem
Position.Y = 19.000000000000000000
TabOrder = 1
Text = ‘ListBoxItem2’
end
object ListBoxItem3: TListBoxItem
Position.Y = 38.000000000000000000
TabOrder = 2
Text = ‘ListBoxItem3’
end
object ListBoxItem4: TListBoxItem
Position.Y = 57.000000000000000000
TabOrder = 3
Text = ‘ListBoxItem4’
end
object ListBoxItem5: TListBoxItem
Position.Y = 76.000000000000000000
TabOrder = 4
Text = ‘ListBoxItem5’
end
end
end
end

Comments are closed.