ListView1.SelectAllですべて選択できなくなった？

解決

武田 2005-08-31 08:16:32 No: 17334

皆様、いつもお世話になっております。
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。
どうぞヒントでもご指導頂ければ幸いです。

レイ 2005-08-31 08:53:49 No: 17335

私の超能力が本物なら
ListView1のプロパティMultiSelectがFalseになってしまっています。
あと、
ListView1.SelectAll;
ListView1.SetFocus;
ともしましょう。

宮 2005-08-31 18:51:44 No: 17336

レイ様早速ありがとうございました。
MultiSelectがFALSEになっていました。
それからListView1.SetFocus;の新知識をいただきました。
ありがとうございました。

武田 2005-08-31 18:53:16 No: 17337

すみません。自己レスです。名前を宮にして送信しました。
ご迷惑をおかけしました。