« 2004年6月 | トップページ | 2004年8月 »

☆ListView.TopItemへの設定

[ Delphi7 ] ListViewの最上段に表示される項目をプログラム上で設定する必要があり、TopItemを使おうとしたのですが、これは読み込み専用プロパティでした。そこで次のような処理をしました。
var
 ListItem: TListItem;
 Pt: TPoint;
begin
 ListItem := ListView1.Selected; //最上段に表示したい項目

 Pt := ListView1.TopItem.Position;
 Pt.y := ListItem.Position.y - Pt.y;
 ListView1.Scroll(0, Pt.y);
end;
※ListViewのViewStyleは、vsReportです。

|

« 2004年6月 | トップページ | 2004年8月 »