ListView1.SelectAllですべて選択できなくなった？ (ID:17334)

名前

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

本文 皆様、いつもお世話になっております。 ListView1.SelectAllですべて選択できた時の状態は Form1がメイン画面、Form2がサブ画面で選択可能なフォームに設定しています。 Form2にはListview1を貼り付けているだけです。 Form1から下記のような命令でForm2を表示させています。 procedure TForm1.Form2Create; Form2 := TForm2.Create(Form1); with Form2.ListView1 do begin NewColumn := Columns.Add; NewColumn.Caption := 'ファイル名'; NewColumn.Width := 250; NewColumn := Columns.Add; NewColumn.Caption := 'フォルダ'; NewColumn.Width := 250; ・・・・省略 end; Form2.Show; end; ListView1にPopupmenyuを貼り付けて右クリックでメニューを表示して項目を選択します。すべて選択、コピー、移動、削除などを設定して実行させています。 すべて選択は procedure TForm2.SelectAll1Click(Sender: TObject);//すべて選択 begin ListView1.SelectAll; end; ここまでは、正常に作動しています。 改造で別窓で表示するのをやめたくて Listview1をForm1に直接貼り付けて移しました。 procedure TForm1.SelectAll1Click(Sender: TObject);//すべて選択 begin ListView1.SelectAll; end; データを表示させて、コピー、移動、削除は正常に作動するのですが、「すべて選択」だけ作動しません。一番最後の行にジャンプして最下行だけが反転します。（エラーはありません） わかりにくい説明でm(__)m。 どうぞヒントでもご指導頂ければ幸いです。