Como selecionar um diretório ou pasta existente? – Show Delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

Como selecionar um diretório ou pasta existente?

 

Está dica mostra uma função que criar uma janela que lhe dá a
possibilidade de selecionar uma diretório.

Isto pode ser muito útil em telas de configuração, por exemplo.

É necessário estar declarado FileCtrl na seção uses,
em versões unicode declare Vcl.FileCtrl;

Abaixo segue o código fonte da função:

1
2
3
4
5
6
7
8
9
10
11
12
function SelectADirectory(Title : string) : string;
var
  Pasta : String;
begin
  SelectDirectory(Title, '', Pasta);
 
  if (Trim(Pasta) <> '') then
    if (Pasta[Length(Pasta)] <> '\') then
      Pasta := Pasta + '\';
 
  Result := Pasta;
end;

Exemplos de uso:

1
2
3
4
5
procedure TForm1.Button1Click(Sender: TObject);
begin
  // Setando para uma Edit a pasta selecionada.
  Edit1.Text := SelectADirectory('Selecione a pasta de Instalação.');
end;
Facebook Comments

Posts Relacionados

  • Administrador
  • 1.886 views
  • 0 comentários
  • 29 de março de 2015

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Ir ao topo

© 2016 Infus Soluções em Tecnologia - Todos os Direitos Reservados