喫茶XRAY [Mr.XRAY掲示板]

> TListView で項目(Item) が選択されているかどうかは，
> TListView.ItemIndex の値で確認できます．

実際にテストしてみました．
サンプルプログラム集の[790_ファイル一覧・仮想リストビュー]の
[01_ファイル一覧・仮想リストビュー (ファイル名のみ)]を使用しました．
そのサンプルで，

  ListView1.RowSelect := False;

として，次のイベントのコードを追加して実行した結果です．
再描画の問題もテストしています．
最初の図では，ItemIndex の値が 2 となっていて，3 番目の項目が選択されている
ことが分かります．
次の図では -1 となっていますから，どの項目も選択されていないことが分かります．
しかし，再描画が完全でないために，描画が不自然な状態となっています．
動作確認は，Windows 7 U64(SP1) + Delphi XE(UP1) Pro です．

procedure TForm1.ListView1Click(Sender: TObject);
var
  AIndex : Integer;
begin
  //図はこの再描画のコードがない場合でテストしている
  //ListView1.Invalidate;

  AIndex := ListView1.ItemIndex;
  //フォーカス領域の枠線を描画しない場合
  //図ではこのコードがない場合でテストしている
  //このコードを実行すると，再描画が行われるのでListView1.Invalidate;は不要
  //if AIndex < 0 then begin
  //  ListView1.ItemFocused := nil;
  //end;

  Panel1.Caption := '選択項目番号   ' + IntToStr(AIndex);
end;