Как открыть первую ветвь TreeView?

Материал из DRKB

Как открыть первую ветвь TreeView?[править | править код]

Как программным путем открыть первую ветвь и в ней выделить первый элемент?

procedure TForm1.Button1Click(Sender: TObject);
begin
  TreeView1.Items[0].Expand(False);
  TreeView1.Items[0].Selected := True;
  TreeView1.SetFocus;
end;


Author: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)
Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 00621