TListBox 항목을 세로로 가운데 맞추는 방법은 무엇입니까?

Question

그래서 TListBox (TListView 아님) 항목을 세로로 가운데에 맞추고 싶습니다.

나는 TopIndex 속성을 사용할 수 있지만 어떻게해야합니까?

스크롤 막대가 표시되지 않는 항목이 적은 경우 가운데 맞춤이 필요하지 않으므로 기본 항목 만 선택하면됩니다. 이 같은

뭔가 :

Answer 1

//IF YOU WANT TO SELECT THE CENTER ITEM 
procedure TForm2.Center; 
    var VisibleItems : Integer; 
begin 
    VisibleItems := ListBox1.ClientHeight div ListBox1.ItemHeight; 
    ListBox1.TopIndex := Trunc((ListBox1.Items.Count/2) - (VisibleItems/2)); 
    if ListBox1.Items.Count > VisibleItems then 
    ListBox1.Selected[ListBox1.TopIndex + (VisibleItems div 2)] := True 
    else 
    ListBox1.Selected[ListBox1.Items.Count div 2] := True; 
end; 



//IF YOU WANT TO CENTER A ITEM 
procedure TForm2.Center(Index : Integer); 
    var VisibleItems : Integer; 
begin 
    VisibleItems := ListBox1.ClientHeight div ListBox1.ItemHeight; 
    if Index > VisibleItems then 
    ListBox1.TopIndex := Index - (VisibleItems div 2); 
end;