掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
仮想リストビューで100000000件を超える値が設定できない (ID:43808)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
procedure TForm7.FormCreate(Sender: TObject); begin ListView1.Items.Count := 7; //表示の高さに合わせる ListView1.OwnerData := True; ListView1.OnData := ListView1Data; ScrollBar1.Left := ListView1.Left + ListView1.Width - ScrollBar1.Width - 1; ScrollBar1.Top := ListView1.Top + 2; ScrollBar1.Height := ListView1.Height - 4; ScrollBar1.OnScroll := ScrollBar1Scroll; ScrollBar1.Kind := sbVertical; ScrollBar1.Max := 200000000 - ListView1.Items.Count; end; procedure TForm7.ListView1Data(Sender: TObject; Item: TListItem); begin Item.Caption := IntToStr(Item.Index + ScrollBar1.Position); end; procedure TForm7.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer); begin ListView1.Invalidate; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.