Navegar no ShellTreeView

Delphi

04/03/2011

olá pessoal sou novo no forum e gostaria de uma ajuda de vocês, estou com uma dificuldade em navegar no ShellListView utilizando button, bom add um ShellListView e 1 Button com nome "Ir para meu computador" ai queria que quando clicar no button o ShellListView ir para o meu computador.

Obrigado.
Marcos Costa

Marcos Costa

Curtidas 0

Respostas

Marcos Costa

Marcos Costa

04/03/2011

por favor, alguém me ajude
GOSTEI 0
Rodrigo Mattos

Rodrigo Mattos

04/03/2011

Amigo eu não sei se é isso que você quer, mas no evento do button coloca esse código:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  St: String;
begin
  for I := 0 to ShellListView1.Items.Count -1 do
  begin
    St := ShellListView1.Folders[I].DisplayName;
    if St = 'Meu computador' then
    begin
      ShellListView1.ItemIndex := I;
      Break;
    end;
  end;
end;


Espero ter Ajudado.

http://mundodoprogramador.wordpress.com
GOSTEI 0
Marcos Costa

Marcos Costa

04/03/2011

olá Rodrigo, obrigado por tentar em me ajudar, o que estou querendo fazer é assim, eu coloquei o ShellListView ai coloquei 1 botão com nome "Ir para Meu Computador" e queria que quando clicado nele, o ShellListView ir para essa parte

GOSTEI 0
POSTAR