Как программно прокрутить, например, TreeView?
Как программно прокрутить, например, TreeView?
Как программно прокрутить, например, TreeView? Для этого нужно послать компоненту соответствующее сообщение: procedure Tfmain.TreeViewDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin if Y<=0 then TreeView.Perform(WM_VScroll, SB_LINEUP,0) else if Y>=TreeView.ClientHeight then TreeView.Perform(WM_VScroll, SB_LINEDOWN,0); end; Возможны так же следующие варианты: SB_BOTTOM SB_ENDSCROLL SB_LINEDOWN SB_LINEUP SB_PAGEDOWN SB_PAGEUP SB_THUMBPOSITION SB_THUMBTRACK SB_TOP