ListView und Checkboxen. RowSelect ausführen.

[Jens Hartmann]

Danke Hawkeye219,

geht so. Ich habe allerdings noch ein..
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