Fórum Utilização do Menu TreeView. #440741
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
Curtir tópico
+ 0Posts
24/04/2013
Frederico Brigatte***
Gostei + 0
24/04/2013
Luciano Bastos
Gostei + 0
24/04/2013
Frederico Brigatte***
Gostei + 0
24/04/2013
Luciano Bastos
Grato pela sua atenção.
Gostei + 0
24/04/2013
Frederico Brigatte***
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)