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

解決

Jun2013 2015-04-16 15:51:10 No: 47211

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

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

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

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

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

山本隆 2015-04-19 09:30:31 No: 47212

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

山本隆さま

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

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