TListView mit Checkboxen Problem....

[Christian Seehase]

Moin Christian,

meintest Du das so:

Delphi-Quellcode:

procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem; Change: TItemChange);

var
  oTemp : TLVChangeEvent;

begin
  if Change = ctState then begin
    if Item.Checked then begin
      oTemp := ListView1.OnChange;
      ListView1.OnChange := nil;
      Item.Selected := true;
      ListView1.OnChange := oTemp;
    end;
  end;
end;

?