Fórum Help Busca diretorio #270741

02/03/2005

0

bem pessoal alguem pode me dar uma dica!!!!
tenho um botão (bitBtn) mesmo e quero fazer com que ao clicar seja exibida arvore de diretorios do meu sistema para que eu possa selecionar um diretorio qualquer...

Depois de selecionado eu possa joga-lo (o endereço pesquisado) em um edit para jogalo em uma variável!!!

Será que alguem quebra essa pra mim, ou melhor caso ixu naum seja possivel com estes como fazer!!! desde jah meu muito obrigado a todos!!!

abraços.


Klaveren

Klaveren

Responder

Posts

02/03/2005

Oscar Candido

Amigo, o componente DirectoryListBox da palheta Win3.1 não resolveria seu problema?
espero que ajude
Um abraço


Responder

Gostei + 0

02/03/2005

Oscar Candido

Amigo o componente ShellTreeView pode ser interessante tb


Responder

Gostei + 0

02/03/2005

Klaveren

será que não tem como fazer uma ligação entre um DriveComboBox e um DirectoryListBox??? e como jogar esse resultado numa variavel ou num edit????

tks!


Responder

Gostei + 0

02/03/2005

Oscar Candido

Exemplo:
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := ShellTreeView1.Path;
end;



Responder

Gostei + 0

03/03/2005

Klaveren

Boa Noite pessoal...

utilizando o componente ´ DirectoryListBox´ da guia win3.1 ele lista apenas a arvore de diretorios unidade de disco em que o rprograma esta executandu, sei que tem o componente ´DriveComboBox´ porem me falta conhecimento para fazer com que o ´ DirectoryListBox´ entenda qual unidade de disco deverá acessar de acordo com minha especificação!!!
Se alguem conseguir me dar um HELP ficarei agradecido!!!

[b:7d85da0214]Boa Noite a Todos!!!![/b:7d85da0214]


Responder

Gostei + 0

03/03/2005

Oscar Candido

Amigo pelo o que eu entendi, me parece que o componente [b:f8b80ca07a]ShellTreeView[/b:f8b80ca07a] da guia [b:f8b80ca07a]Samples[/b:f8b80ca07a] será mais útil pra vc do que o componente [color=red:f8b80ca07a]DirectoryListBox[/color:f8b80ca07a].
Espero ter ajudado
Um Abraço


Responder

Gostei + 0

04/03/2005

Rômulo Barros

[color=red:9c564707a2][b:9c564707a2]Amigo, veja se o código abaixo o ajuda:[/b:9c564707a2][/color:9c564707a2]

Uses
   FileCtrl;
...
procedure TForm1.Button1Click(Sender: TObject);
Var
  DirSelecionado : String;
begin
   If(SelectDirectory(´Meu Caption´,´Selecion um diretório abaixo´,DirSelecionado))Then
     ShowMessage(´O diretório selecionado foi: ´ + DirSelecionado);
end;

end.



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar