くだすれDelphi(超初心者用)その60【Embarcadero】 (464ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

227: 2024/12/12(木)15:33 ID:9t6Prbeo(1/3) AAS
TControlList で最上位に表示されてるアイテム(index)を取得する方法ないですかね
TListView の TopItem みたいなのです
プロパティでは見当たらず、OnBeforeDrawItem イベントくらいしか Indexを取得するところが無くて..

---

228: 2024/12/12(木)15:34 ID:9t6Prbeo(2/3) AAS
下記忘れました VCLです

---

229: 2024/12/12(木)17:05 ID:9t6Prbeo(3/3) AAS
自己解決しました
スクロールバーの情報から取得できました

var ScrollInfo: TScrollInfo;
ScrollInfo.cbSize := SizeOf(ScrollInfo);
ScrollInfo.fMask := SIF_ALL;
GetScrollInfo(ControlList1.Handle, SB_VERT, ScrollInfo);

var TopIndex := ScrollInfo.nPos div ControlList1.ItemHeight;

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 1.572s*