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;