VirtualStringTree, Checkbox "anhackeln" über Zeilen click

[Centrii]

für diejenigigen die das auch nutzen wollen...
Eine kleine Änderung ist nötig

Delphi-Quellcode:

procedure TfMain.Tree1Checking(Sender: TBaseVirtualTree; Node: PVirtualNode; var NewState: TCheckState;
  var Allowed: Boolean);
begin
  Tree1.ClearSelection;
end;

procedure TfMain.Tree1Click(Sender: TObject);
begin
  if Tree1.SelectedCount > 0 then begin
    if Tree1.CheckState[Tree1.GetFirstSelected] = csCheckedNormal then
      Tree1.CheckState[Tree1.GetFirstSelected] := csUnCheckedNormal
    else
      Tree1.CheckState[Tree1.GetFirstSelected] := csCheckedNormal;
  end;
end;

Gruß Ruben