ListView und Checkboxen. RowSelect ausführen.

[Jens Hartmann]

Hallo zusammen,

ich steh mal wieder auf der Leitung. Es wird wahrscheinlich ein ganz simple Lösung für mein Problem geben. Allerdings schaffe ich es seid gestern nicht, beim Klick in einen Checkbox einer ListView, die komplette Zeile zu Selektieren.

Es soll egal sein, ob die Checkbox Checked oder Unchecked ist. Es soll einfach nur wie beim klick in die Listview die entsprechende Zeile selektiert werden.

Hier mal mein derzeitiger Code...

Delphi-Quellcode:

procedure TMailSendenForm.lvGroupChange(Sender: TObject; Item: TListItem;
  Change: TItemChange);
begin
  if lvGroup.Selected <> nil then
    begin
      if Change = ctState then
        if Item.Checked then
          begin
            Item.Selected := true;
          end;
    end;
end;

Allerdings ist hier das Problem, das somit in der Listview immer alle Selektiert bleiben die mal über die Checkbox selektiert wurden. Da ich aber MultiSelect = false habe, kommte es natürlich zum Stack überlauf.Gibt es da nicht irgendeine einfache Möglichkeit.

Ich will eigendlich nur, das beim Klick in die Checkbox die gesamte Zeile Selektiert wird aber auch immer max. 1 Zeile selektiert sein darf.

Danke schon mal für die Anregung

Gruß Jens

[Andreas L.]

Zitat:

Zitat von Jens Hartmann

Es soll egal sein, ob die Checkbox Checked oder Unchecked ist.

Dann muss

Delphi-Quellcode:

if Item.Checked then

schon mal raus sonst wird die Zeile nur markiert wenn die CheckBox ausgewählt wurde.

Zitat:

Allerdings ist hier das Problem, das somit in der Listview immer alle Selektiert bleiben die mal über die Checkbox selektiert wurden.

Bevor du Selected auf True setzt musst du alle Markierungen aufheben. Glaub das geht mit ListView1.ClearSelection;

[Jens Hartmann]

Zitat:

Zitat von Andreas

Bevor du Selected auf True setzt musst du alle Markierungen aufheben. Glaub das geht mit ListView1.ClearSelection;

Danke, das geht schon mal. Das mit dem Checked ist mir auch soweit klar. Aber wie kann ich dann über die Checkbox selektieren.
Ich kann ja mit dem Befehl

Delphi-Quellcode:

Item.Selected

Nur festlegen, das ein selektieren möglich ist.

[Hawkeye219]

Hallo Jens,

ich bevorzuge eigentlich das VirtualTreeView, deshalb kann ich nicht garantieren, dass der folgende Code immer fehlerfrei funktioniert:

Delphi-Quellcode:

type
  TForm1 = class (TForm)
    [..]
  private
    FWasChecked: Boolean;
  end;

procedure TForm1.ListViewChanging (Sender: TObject; Item: TListItem; Change: TItemChange;
  var AllowChange: Boolean);
begin
  FWasChecked := Assigned(Item) and Item.Checked;
end;

procedure TForm1.ListViewChange (Sender: TObject; Item: TListItem; Change: TItemChange);
begin
  if (Assigned(Item) and (Item.Checked <> FWasChecked)) then
    begin
      ListView.ItemFocused := Item;
      ListView.Selected := Item;
    end;
end;

Gruß Hawkeye

[Jens Hartmann]

Danke Hawkeye219,

geht so. Ich habe allerdings noch ein..

Delphi-Quellcode:

if lvGroup.Focused <> false then

vor deine Funktion gepackt, da sonst beim Prgrammstart durch das OnCreate schon der letzte eintrag den Selected Zustand erhält. Mit der unten ergänzten Version funktioniert es nun so, wie ich will.

Delphi-Quellcode:

procedure TMailSendenForm.lvGroupChange(Sender: TObject; Item: TListItem;
  Change: TItemChange);
begin
if lvGroup.Focused <> false then
  begin
    if (Assigned(Item) and (Item.Checked <> FWasChecked)) then
      begin
        lvGroup.ItemFocused := Item;
        lvGroup.Selected := Item;
      end;
  end;
end;

procedure TMailSendenForm.lvGroupChanging(Sender: TObject; Item: TListItem;
  Change: TItemChange; var AllowChange: Boolean);
begin
if lvGroup.Focused <> false then
  FWasChecked := Assigned(Item) and Item.Checked;
end;

Danke und Gruß Jens