ListViewのチェックボックスクリック時に１つだけ選択する方法は？ (ID:29793)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ↓↑キーにも対応しなくちゃネ。 procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem; Change: TItemChange); begin with TListView(Sender) do begin if Selected = nil then exit; Selected.Checked := True; if (si <> nil)and(si <> Item) then si.Checked := False; si := Item; end; end;