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; |
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Você precisa fazer o login para publicar um comentário.
Funcionou perfeitamente!!!Obrigado!!!