ListBoxでScrolさせる方法について

解決

Jun2013  2015-04-16 15:51:10  No: 47211  IP: [192.*.*.*]

DelphiXE7.1でテストしています。FMXです。

ボタンを貼り付けて
procedure TForm1.ButtonUpClick(Sender: TObject);
begin
  ListBox1.ScrollBy(0,100);
end;

で、Windowsならスクロールします。
同じプログラムをAndroidで実行させると、何も動作しません。

スワイプではスクロールします。

何かプロパティで設定が必要なのでしょうか。

編集    削除
山本隆  2015-04-19 09:30:31  No: 47212  IP: [192.*.*.*]

XE7の不具合です。
この不具合はXE8で修正されています。
https://quality.embarcadero.com/browse/RSP-9682

XE7のTCustomScrollBox.ScrollByのソースコードを見ると、スクロールバーのVisibleプロパティがFalseのときはスクロールしないようになっています。
XE8ではスクロールバーのVisibleプロパティのチェックがなくなっています。
XE7でもそのようにソースコードを修正すればいいと思います。

編集    削除
Jun2013  2015-04-21 20:33:03  No: 47213  IP: [192.*.*.*]

山本隆さま

XE7では修正なしでは不可なのですね。
XE8で対応することを検討します。
それまではItemIndexを操作して、疑似的にスクロールぽくするように
します。

ありがとうございました。

編集    削除