TreeView

[arce]

Olá pessoal....

Estou usando o componente TreeView como menu do sistema, porém quando eu clico no mais (+) da árvore, ele abre o último frm que foi aberto.

Como faria para quando clicar no mais (+) não abrir nenhum frm???

Para chamar o frm utilizo o seguinte código na evento onclick:

if (frm_cad_cli = nil) and (TreeView1.Selected.StateIndex = 101) then

begin

Application.CreateForm(Tfrm_cad_cli, frm_cad_cli);

frm_cad_cli.show;

end;

if (frm_cad_forn = nil) and (TreeView1.Selected.StateIndex = 102) then

begin

Application.CreateForm(Tfrm_cad_forn, frm_cad_forn);

ffrm_cad_forn.show;

end;

os itens do treeView não foram criados em tempo de execução. Foram criados diretamente na propriedade Items do componente TreeView.

no exemplo acima o cadastro de clientes foi setado a opção StateIndex para 101.

[Jhonas]

Faça uma busca no forum e veja o que encontra

http://scriptbrasil.com.br/forum/index.php...ghlite=TreeView

abraço

[arce]

Jhonas

Mudei o evento do treeView do onClick pra dllClik e funcionou.

Mas não ficou muito legal para o usuário, por ser dois clicks em vez de um.

abraço

Editado Dezembro 29, 2009 por arce

[Jhonas]

mude o código para o evento OnExpanded

procedure TForm1.TreeView1Expanded(Sender: TObject; Node: TTreeNode);
begin
   // comandos

end;

abraço