FMXのTScrollBarに相当するOnScrollイベントは何ですか？

Question

私はDelphi 10 SeattleのTScrollBarのイベント（OnScroll）ハンドラの解決策を見つけられませんでした。私はそれがPanelやDBGridのようなコンテンツを入れるTScrollBoxではないので、私はそれを選択しました。マウスの動きを検出するだけです（MouseUp/Down/Side-to-Sideのいずれも動作していません）。ファイルシークツールとして使用され、多数のTeeChartを強制的にアップデートしますスクロールの方向に移動します。これまでのところ私はWindowsMessagesからなる不可解な例（WM_HSCROLL）に遭遇している

とVLC.StdCtrls.TScrollBar.OnScroll

のOnChange以外に移動するスクロールバーを検出するための効率的な方法は何ですか？

スクロールバーを操作して、途中で自分自身をリセットすることができれば助かります。 Min = -50とMax = 50（0）を設定した場合と同じように値を設定した場合とよく似ています

Answer 1

FMX TScrollBarの制限を克服するために、 （あなたが提供したリンクに部分的に触発されています）。

スクロールバーでスクロールするコントロールが現在のスクロール位置を格納するプロパティを持っている（または装備できる）場合は、/の/ definedを使用できます。テストのために私はそれをフォームのプライベートプロパティとして定義し、それをsbIncrementalと呼んでいます。

その後、OnChangeイベントは私のテストでは、このようになります

Max = 100、 SmallChange = 10、 Orientation = Verticalとして及び Min = -100私は TScrollBarのプロパティを設定します。中央にスクロールバーの位置をリセットするには

procedure TForm6.ScrollBarChange(Sender: TObject); 
var 
    sb: TScrollBar; 
    sbOnChange: TNotifyEvent; 
begin 
    sb := (Sender as TScrollBar); 
    sbIncremental := sbIncremental + sb.Value; 

    Label1.Text := FloatToStr(sbIncremental); // Use the new value 

    sbOnChange := sb.OnChange; // Disable OnChange event 
    sb.OnChange := nil;   // -"- 
    sb.Value := (sb.Min + sb.Max)/2; // Reset position 
    sb.OnChange := sbOnChange; // Re-enable OnChange event 
end; 

OnChangeイベントを一時的に無効にする必要があります。

---

コメント後の更新。

私が今理解しているように、値が（OnChange内で）0に変更されても、スクロールバーの視覚的外観が0の位置に戻らないという問題があります（最小= -100、最大=ゼロ位置は中央にある）。矢印ボタンをクリックしたときに表示されますが、サムグリップをドラッグするか、サムグリップのいずれかの側をクリックしても表示されません。ビジュアル更新は、OnChangeイベント内のこれらの2つのケースでは防止されているようです。また、ScrollBar.Repaintを呼び出しても外観は更新されません。 OnMouseDown/OnMouseUpイベントを使用する方法が見つかりませんでした。彼らは内部的にリンクされているように見えませんか？

これは次の（ハッキーな）解決策を私たちに残します。タイマーを小さな遅延、たとえば300msで起動させます。タイムアウトが発生すると、スクロールバーは新しい値の変更を受け入れ、視覚的に更新できる状態になります。また、タイマーにはプラスの効果があり、クリックするとサムグリップが動いてから後退します。間に時間がなければ、何かが起こるという視覚的な指示はありません。

procedure TForm6.ScrollBarChange(Sender: TObject); 
begin 
    // Use the scrollbar value 
    Label1.Text := FloatToStr((Sender as TScrollBar).Value); 

    // Enable reset timer 
    ScrollBarTimer.Enabled := False; 
    ScrollBarTimer.Enabled := True; 
end; 

とのOnTimerイベント

procedure TForm6.ScrollBarTimerTimer(Sender: TObject); 
var 
    sbOnChange: TNotifyEvent; 
begin 
    ScrollBarTimer.Enabled := False; 

    sbOnChange := ScrollBar.OnChange; // store OnChange event 
    ScrollBar.OnChange := nil;  // disable OnChange event 
    ScrollBar.Value := (ScrollBar.Min + ScrollBar.Max)/2; // reset position 
    ScrollBar.OnChange := sbOnChange; // re-enable OnChange event 
end;