☆ListViewで選択行を削除する。
次のような処理で簡単に削除できます。
このとき処理の内容によっては、次のようにOnChangeを無効にしないとエラーになったり、時間がかかったりすることがあります。又、アイテム数によっては、BeginUpdate~EndUpdateを使わないと処理が遅いです。
while ListView1.SelCount > 0 do ListView1.Selected.Delete;
このとき処理の内容によっては、次のようにOnChangeを無効にしないとエラーになったり、時間がかかったりすることがあります。又、アイテム数によっては、BeginUpdate~EndUpdateを使わないと処理が遅いです。
procedure TForm1.Button1Click(Sender: TObject); begin ListView1.Items.BeginUpdate; ListView1.OnChange := nil; try while ListView1.SelCount > 0 do ListView1.Selected.Delete; finally ListView1.OnChange := ListView1Change; ListView1.Items.EndUpdate; end; end;
| 固定リンク