VirtualStringTree, Checkbox "anhackeln" über Zeilen click

[Centrii]

hi,

Ich suche jetzt schon ewig nach einem Beispiel wie ich ein VirtualStringTree dazu bringen kann,
bei einem Click auf die Zeile die Checkbox der Zeile "anzuhackeln". Standard mäßig wird die
Checkbox nur bei einem direkten Click auf die Checkbox aktiviert.

Ich finde nichts dazu, vielleicht geht das auch gar nicht ?!?!

Wenn jemand weiß wie das geht, würde ich mich echt freuen

Gruß Ruben

[MrKnogge]

Ungetestet:

Delphi-Quellcode:

procedure TFrmMain.VSTClick(Sender: TObject);
begin
  if VST.CheckState[VST.GetFirstSelected] = csCheckedNormal then
    VST.CheckState[VST.GetFirstSelected] := csUnCheckedNormal
  else
    VST.CheckState[VST.GetFirstSelected] := csCheckedNormal;
end;

[Centrii]

super, das funktioniert...
Ich danke Dir MrKnogge

[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