Dicas - Como utilizar uma tela de diálogo para selecionar um diretório

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (0)

Veja nesta dica, como mostrar a caixa de diálogo, sem utilizar um OpenDialog.

Como utilizar uma tela de diálogo para selecionar um diretório

 

Você pode fazer sem utilizar um OpenDialog. Primeiro adicione FileCtrl aos uses. Agora a função SelectDirectory pode ser utilizada. Adicione um Button ao formulário e no evento OnClick digite o seguinte código:

 

procedure TForm1.Button1Click(Sender: TObject) ;

const

  SELDIRHELP = 1000;

var

  dir: string;

begin

  dir := 'C:';

  if SelectDirectory(dir, [sdAllowCreate, sdPerformCreate,

    sdPrompt], SELDIRHELP) then

    Button1.Caption := dir;

end;

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?