Selected ile tümünü seç

[Serhat]

İyi akşamlar,

Listviewde checkbox kullanmadan (if Items.Selected then) ile tüm satırları nasıl seçtirme işlemini yaptırabilirim...

Kod: Tümünü seç

procedure TForm2.ListView1ColumnClick(Sender: TObject; Column: TListColumn);
begin
  try
    if Column.Index = 0 then
    begin
      with ListView1 do
      begin
        for I := 0 to Items.Count - 1 do
        begin
          if Items[I].Selected then
          begin
            Items.Item[I].Checked := True;
          end
          else
          begin
            Items.Item[I].Checked := False;
          end;
        end;
      end;
    end;
  except
  end;
end;

[G.Arkas]

Kod: Tümünü seç

ListView1.SelectAll;

[brs]

Kod: Tümünü seç

procedure TForm11.ListView1ColumnClick(Sender: TObject; Column: TListColumn);
begin
  try
    if Column.Index = 0 then
    begin
      with ListView1 do
      begin
        Items.BeginUpdate;
        try
          for i := 0 to Items.Count - 1 do
          begin
            if Items[I].Selected then
            begin
              Items[I].Selected := False;
            end
            else
            begin
              Items[I].Selected := True;
            end;
          end;
        finally
          Items.EndUpdate;
        end;
      end
    end;
  except
  end;
end;