OnChange Event bei TListViews

[marabu]

Hallo Stephan,

du kannst so vorgehen:

Delphi-Quellcode:

procedure TDemoForm.InitButtonClick(Sender: TObject);
var
  i: Integer;
begin
  with ListView do
  begin
    OnChange := nil;
    for i := 0 to Pred(Items.Count) do
      Items[i].Checked := Odd(i);
    OnChange := ListViewChange;
  end;
end;

procedure TDemoForm.ListViewChange(Sender: TObject; Item: TListItem;
  Change: TItemChange);
begin
  ShowMessage(Format('item %s: %s', [Item.Caption, BoolToStr(Item.Checked, True)]));
end;

Grüße vom marabu