TTreeViewをプログラムによってスクロールする方法は？

Question

A. Delphi VCLフォームアプリケーションを作成します。スクロールバーは、例えば、ツリービュー上に表示されているよう

B.は、フォーム、名前それtvTestとアイテムとそれを記入し、ツリービューのサイズを設定するにTTreeViewの入れ：

C 。フォーム上のボタンを配置し、そのクリックハンドラにこのコードを書く：

procedure TForm1.btnScrollClick(Sender: TObject); 
    begin 
    tvTest.ScrollBy(tvTest.Width, 0); 
    end; 

D.今すぐプログラムを実行し、ボタンをクリックしてください。おそらく、水平スクロールバーは左から右にスクロールする必要があります。しかし、何も起こりません。どうして？

スクロールバー（とスクロールバーのコンテンツを含む）を左から右、右から左、下、上にスクロールするにはどうすればよいですか？

デルファイ10.1ベルリンアップデート2
のWindows 7のx64 SP1

EDIT：私は（サミの提案に似ている）、このコードを使用する場合：

tvTest.ScrollBy(-3, -3);

を...私はこれを取得現代美術の一部：

Answer 1

TreeViewをスクロールするには、PerformWM_VSCROLLおよび/またはWM_HSCROLLメッセージを送信します。

tvTest.Perform(WM_HSCROLL, MakeWParam(SB_LINERIGHT, 0), 0); 

または

tvTest.Perform(WM_VSCROLL, MakeWParam(SB_LINEDOWN, 0), 0); 

パラメータのためのメッセージの対応するドキュメンテーションを参照してください。

ScrollByは、ScrollWindow APIのVCLのラッパーであり、コントロールの内容をシフトします。これはスクロールされたコントロールのクライアントの一部をペイントするためのショートカットです。表示されている（空の）部分をさらにペイントする必要があります。これは、通常、コントロールの内部実装によって使用されます。あなたが探しているものではありません。