Olá pessoal! Estava tendo a necessidade de selecionar vários arquivos
com o OpenDialog. Depois de alguns testes consegui resolver este
problema e resolvi postar como fazer.
1º Passo é ir dentro da propriedade Options do OpenDialog, na
opção ofAllowMultiSelect e colocar com True.
Abaixo segue uma imagem para ajudar no entendimento.
2º Passo é recuperar os arquivos selecionados.
Para isso, você pode percorrer a propriedade Files.
Veja o código abaixo:
1 2 3 4 5 6 7 8 9 10 11 | procedure TForm1.Button1Click(Sender: TObject); var I: integer; begin if (OpenDialog1.Execute) then begin { Percorrendo a lista de arquivos selecionados. } for I := 0 to OpenDialog1.Files.Count - 1 do ShowMessage(OpenDialog1.Files[I]); end; end; |
Então pessoal, é uma dica simples, mas espero que possa ser útil a todos!
Dúvidas ou sugestões deixe nos comentários do post.
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Você precisa fazer o login para publicar um comentário.
Muito útil, Obrigado!