Treenode mit Image je nach Bedarf

[torud]

Moin Chris,

ich weiß auch nicht, aber gestern abend wollte es mir einfach nicht gelingen. Ich habe es heute noch mal probiert und mit etwas Ruhe es auch hinbekommen. Wen´s interessiert hier ein einfaches Beispiel.

Delphi-Quellcode:

    if Button1.Caption = 'gruen' then
      begin
        TreeView1.Items.Item[0].ImageIndex := 0;
        Button1.Caption:='rot;'
      end
     else
      begin
        TreeView1.Items.Item[0].ImageIndex := 1;
        Button1.Caption:='gruen'
      end;