« ■@ITの記事 | トップページ | ■Delphi9 フィールドテスター »

☆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です。

|

« ■@ITの記事 | トップページ | ■Delphi9 フィールドテスター »