Utilização do Menu TreeView.
23/04/2013
0
Pessoal estou criando uma ferramenta e a interface da mesma deverá parecer com a do formulário de Novo Item (New Items) do Delphi XE3 que fica no menu File >New >Other.
Preciso de um Menu TreeView do Lado esquerdo, uma TEdit para pesquisa na parte superior e no lado direito um componente que exiba as informações correspondentes a opção selecionada no Menu TreeView.
1 - Criei a interface.
2 - Criei a procedure abaixo
procedure TfrmSiad.BuscarTreeView; var Nodo: Integer; begin for Nodo := 0 to trvSIAD.Items.Count -1 do begin if copy(trvSIAD.Items.Item[Nodo].Text,1,Length(edtLocalizar.Text)) = edtLocalizar.Text then begin trvSIAD.Select(trvSIAD.Items.Item[Nodo]); trvSIAD.Items.Item[Nodo].Item[Nodo].Selected := True; Break; end; end; end;
3 - Invoquei a procedure BuscarTreeView a partir do evento OnChange do componente TEdit.
Só que não funciona da forma como deveria.
O código está funcional, o problema é na lógica por eu não ter um bom domínio de como funciona o componente TreeView.
Peço a colaboração de quem tiver o conhecimento e possa compartilhar. Na url abaixo segue o projeto compactado.
[url]http://www.4shared.com/rar/dE1bDjBI/Siad.html[/url]
Pessoal muito obrigado e estarei a disposição no que eu puder ajudar.
Luciano Bastos
Posts
24/04/2013
Luciano Bastos
24/04/2013
Luciano Bastos
Grato pela sua atenção.
Clique aqui para fazer login e interagir na Comunidade :)