procedure TForm1.SpeedButton1Click(Sender: TObject); var I:integer; begin for i:=1 to treeview1.Items.Count -1 do begin treeview1.Items[0].Item[i].ImageIndex:=29 ; treeview1.Items[0].Item[i].SelectedIndex:=29 end; end;
----------------------------------------------
-
var i:integer ; begin for i:=0 to Treeview1.Items.Count -1 do begin Treeview1.Items[i].SelectedIndex := 2; TreeView1.Items[i].ImageIndex := 2 ; end; TreeView1.Refresh ; end;
----------------------------------------------
-