tree mit checkboxen

[raiguen]

Moin :-)
Der 'Bock' liegt in der -->procedure Timportdata.list_dataClick(Sender: TObject); die kannst Du getrost vergessen, weil das nix bringt (wie Du ja selber feststellen musstest ;-) ).

Beim Erstellen eines Baumknotens weist Du selbigen das entsprechende Image aus der Imagelist zu:

Delphi-Quellcode:

...
    NeuerNode := list_data.Items.AddChild(...);
    NeuerNode.ImageIndex := 0;     //--Image im Normalzustand (unselektiert)
    NeuerNode.SelectedIndex := 1;  //--Image für den selektierten Knoten
...

[Karlo]

Moinmoin,
habe früher unter D5 ab und zu mal den RAKTree verwendet.
Habe es gerade unter D2005 compiliert (einige wenige Änderungen waren nötig: VCL50 usw. muss aus den Packages raus.
Außerdem "DsgnIntf" ersetzen durch "DesignIntf, DesignEditors".

Die Anwendung ist etwas anders als bei TTreeview. Hier ein kurzes Code-Beispiel:

Delphi-Quellcode:

var
  Node1, Node2, Node3 : TRakTreeNode;
begin
  Node1 := RakTree1.Anker.Add;
  Node1.Caption := '1.';
  Node1.CheckBox.Visible := True;
  Node2 := Node1.Add;
  Node2.Caption := '1.1';
  Node2.CheckBox.Visible := True;
  Node3 := Node2.Add;
  Node3.Caption := '1.1.1';
  Node3.CheckBox.Visible := True;
  Node3 := Node2.Add;
  Node3.Caption := '1.1.2';
  Node3.CheckBox.Visible := True;
  Node2 := Node1.Add;
  Node2.Caption := '1.2';
  Node2.CheckBox.Visible := True;
  Node3 := Node2.Add;
  Node3.Caption := '1.2.1';
  Node3.CheckBox.Visible := True;
  Node3 := Node2.Add;
  Node3.Caption := '1.2.2';
  Node3.CheckBox.Visible := True;
  Node1.CheckBox.Checked;
end;

Wenn eine Checkbox angehakt wird, dann werden auch bei den untergeordneten Knoten die Haken gesetzt.

Vielleicht hilft's

Karlo

[Mackhack]

Hier noch n Link zu deinen Checkboxes und Radioboxes in einem TTreeView!