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; |
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; |
procedure TForm1.Button1Click(Sender: TObject);
begin
// Setando para uma Edit a pasta selecionada.
Edit1.Text := SelectADirectory('Selecione a pasta de Instalação.');
end;
-
InfusTec
-
14.038 views
- 1 comentários
- 29 de março de 2015
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo
Funcionou perfeitamente!!!Obrigado!!!