急！急！急!急!急!急! 请问各位高手一个Tlistview 控件的问题

[yymdwhl]

请问各位：
Tlistview用代码动态的添加Item时，超出了一屏的数目时，会出现滚动条，请问：如何使焦点定位在最后一行，也就是滚动条会自动滚动到最下边的位置？保证最后一条目始终显示在当前一屏内。

[sxzqlzx]

判断一下就知道了

[yymdwhl]

具体怎么做啊？

[yygang]

if (CurRecordNo < ListView->Items->Count)
{
ListView->Items->Item[CurRecordNo]->Selected = true;
ListView->Items->Item[CurRecordNo]->Focused = true;
if (ListView->TopItem->Index > CurRecordNo)
{
int DY = (ListView->TopItem->Index - CurRecordNo) *
(ListView->ClientHeight / ListView->VisibleRowCount);
ListView->Scroll(0, -DY);
}
else if ((ListView->TopItem->Index +
ListView->VisibleRowCount - 1) < CurRecordNo)
{
int DY = (ListView->TopItem->Index + ListView->VisibleRowCount
- 1 - CurRecordNo) *
(ListView->ClientHeight / ListView->VisibleRowCount);
ListView->Scroll(0, -DY);
}
}

[myy]

//..添加Item

..
Item->MakeVisible(false);
..

[cloudred]

MakeVisible实现

[JetKingLau]

看看 TListView 是不是有 TopIndex 属性，如果有，设其值为 Count 就行了。

没装 BCB，所以不太肯定。

[pp616]

ListView->Perform(WM_VSCROLL,SB_BOTTOM,0);

[pp616]

ListView->Perform(WM_HSCROLL,SB_RIGHT,0);

[pengsh]

用myy的方法
//..添加Item
TListItem *Item;
Item=ListView->Items->Add();
Item->Caption="OK";
//等等

..
Item->MakeVisible(false);
//OK，成功