ListView und Checkboxen. RowSelect ausführen.

[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