Andressa... Estou te enviando um segundo código para vc sobrepor ao que te enviei antes... acho que resolve seu problema...
Em tempo... Neste segundo código, enviei hoje, mais cedo um com um pequeno bub que consertei... Veja a segunda mensagem com anexo!! Silvio Clécio... Te enviei também para vc disponibilizar no teu blog, camarada!!! Sds __________________________________ Emanuel Coutinho Salvador-Ba-Brasil Andresa Ferreira escreveu: > > Oi Coutinho... > > Eu fiz assim: > > procedure TfrmMenuModulos.tvMenuExpanded(Sender: TObject; Node: > TTreeNode); > begin > inherited; > with tvMenu do > Select(Node); > end; > procedure TfrmMenuModulos.tvMenuCollapsed(Sender: TObject; > Node: TTreeNode); > begin > inherited; > with tvMenu do > Select(Node); > end; > > E deu super certo... o único detalhe agora, e que qdo abre a tela o > menu está vindo aberto. > O AutoExpand está False. > Ele está vindo aberto por causa do evento vMenuCollapsed. Mas se eu > não colocar esse, e colocar apenas o tvMenuExpanded, quando eu clico > no (+) fica certinho, mas qdo eu clico p/ fechar (-) ele ainda abre > uma tela que abri, e não deveria. > > GRata, > Andresa > > > . > > > --