如何居中特定TreeView節點的位置？

Question

當我用TTreeView打開窗體時，我用一些數據填充它並選擇一些節點。但我需要讓選定的節點在控制中心可見（當然可能）。我找不到如何使用標準的TTreeView組件。 任何想法？

Answer 1

我可以找到滾動TreeView的唯一方法是發送一個WM_VSCROLL，其值爲SB_LINEDOWN/SB_LINEUP。出於某種原因，控件似乎沒有響應滾動值SB_THUMBPOSITION，例如豐富的編輯。出於這個原因，下面的嘗試，通過發送控制一堆行滾動消息或多或少中心節點。如果它適合您的需求，請親自嘗試一下。

var 
    DR, CR: TRect; 
    ScrollPx, ScrollLines, i: Integer; 
begin 
    if Assigned(TreeView1.Selected) then begin 

    // calculate how many *pixels* should we scroll 
    DR := TreeView1.Selected.DisplayRect(False); 
    CR := TreeView1.ClientRect; 
    ScrollPx := - Round((CR.Bottom/2) - DR.Top - ((DR.Bottom - DR.Top)/2)); 

    // how many lines does it correspond to 
    ScrollLines := ScrollPx div TreeView_GetItemHeight(TreeView1.Handle); 

    // scroll that many lines 
    if ScrollLines > 0 then 
     for i := 1 to ScrollLines do 
     TreeView1.Perform(WM_VSCROLL, MakeWParam(SB_LINEDOWN, 0), 0) 
    else if ScrollLines < 0 then 
     for i := ScrollLines to -1 do 
     TreeView1.Perform(WM_VSCROLL, MakeWParam(SB_LINEUP, 0), 0); 
    end;