tree mit checkboxen

[remie]

hi leutz
habe das mit dem Virtual Tree View versucht, aber habe leider nicht die zeit mich da wirklich reinzulesen ...
mit der Image List klapt auch ganz gut, das einzige Problem was ich habe ist, das er mir das selected item nicht ändern will ...
kennt das jemand bzw. wie habt ihr das den gelöst ?
hier mein entsprechender code

Delphi-Quellcode:

type 
...
private 
  tmp_node : TTreeNode;
...
// Maus Position ermitteln
procedure Timportdata.list_dataMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  mouse_x := X;
  mouse_y := y;
end;

procedure Timportdata.list_dataMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 tmp_node := list_data.GetNodeAt(mouse_x,mouse_y);
end;

procedure Timportdata.list_dataClick(Sender: TObject);
begin
  if tmp_node <> nil then begin
    if list_data.items.Item[tmp_node.Index].ImageIndex = 0 then
      list_data.items.Item[tmp_node.Index].ImageIndex := 1
    else 
      list_data.items.Item[tmp_node.Index].ImageIndex := 0;
  end;
end;

vllt is da ja auch nen bock drin ...