Dialog p/ capturar diretorio

Question

Dialog p/ capturar diretorioAlguem sabe :1) Como fazer o OpenDialog p/ capturar um diretorio , nao arquivo ?2) Algum Dialog pronto que fa�a isto ?...

Thaisandrade · Accepted Answer

Pode usar a fun��o SelectDirectory (uses FileCtrl).

procedure TForm1.Button1Click(Sender: TObject);
var
Dir: string;
begin
Dir := �C:\TESTE�;
if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
Label1.Caption := Dir;
end;

Alexandremarcondes · Answer

Os componentes do delphi-jedi (JCL / JVCL) t�m dois di�logos que podem ser �teis para voc�, prontos, se voc� n�o precisar de CLX.

[url]http://www.delphi-jedi.org[/url]

Espero que te ajude ...

Motta · Answer

Baixei a Jedi, mas n�o instalei, o meu download j� deve at� estar caduco !!Grato !!...

Weber · Answer

Ressuscitando este t�pico venho aqui com a mesma d�vida, como fazer um OpenDialog selecionar apenas um diret�rio quando se clicar em abrir em sua janela.

A rotina indicada por Motta at� funciona, mas a janela que se abre � muito �feia�.
N�o estou querendo usar componentes de terceiros (Jed, Rx, etc).

Algu�m tem alguma id�ia de como posso fazer para que seja poss�vel um OpenDialog comum selecionar diret�rios?

Motta · Answer

Eu fiz uma , mas a tela � realmente mais feia que capotagem de caminh�o de lixo, mas como era um tro�o muito isolado me serviu na �poca (depois nunca mais usei).

A pouca vantagem e que usa TDriveComboBox e TDirectoryListBox 2 comp. padr�es (Win 3.1 !!)

{Dialog para capturar diret�rio
 Chame DialogDir}
unit objDialogDir;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, FileCtrl, Buttons;

type
  TfrmDialogDir = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    btnOK: TBitBtn;
    btnCancela: TBitBtn;
    DriveComboBox: TDriveComboBox;
    DirectoryListBox: TDirectoryListBox;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function DialogDir(Title : string = �Escolha o diret�rio�;InitialDir : string = �c:�):string;

var
  frmDialogDir: TfrmDialogDir;

implementation

{$R *.DFM}

function DialogDir(Title : string = �Escolha o diret�rio�;InitialDir : string = �c:�):string;
begin
  Result := ��;
  with TfrmDialogDir.Create(nil) do
  try
    DirectoryListBox.Directory := InitialDir;
    Caption := Title;
    ShowModal;
    if ModalResult = mrOk then
      Result := DirectoryListBox.Directory;
  finally
    Free;
  end;
end;

end.

Weber · Answer

Valeu Motta.Acho que a saida vai ser criar a minha pr�pria tela OpenDialog...

Marcio.theis · Answer

Eu utilizo um componente chamado OpenDirectory, que pode ser baixado atrav�s deste [url=//www.datastead.net/opendir/index.htm]Site[/url]....

Weber · Answer

Valeu /]/]@t, mas n�o posso utilizar componentes de terceiros somente posso utilizar componentes nativos do delphi....

Massuda · Answer

N�o sei se vai agradar esteticamente, mas experimente dar uma olhada na fun��o [url=//www.delphibasics.co.uk/RTL.asp?Name=SelectDirectory]SelectDirectory[/url] da unit FileCtrl....

Weber · Answer

Resolvi (pelo menos temporariamente) meu problema. Fiz meu proprio OpenDialog.

Eu estava precisando de um OpenDialog que fosse possivel selecionar tanto pastas quanto arquivos e at� mesmo multselect de pastas e arquivos.
O que eu fiz foi somente um form com ShellList e ShellCombo mas ja resolveu meu problema.

Motta · Answer

[quote:ac41adf718=�Massuda�]N�o sei se vai agradar esteticamente, mas experimente dar uma olhada na fun��o [url=//www.delphibasics.co.uk/RTL.asp?Name=SelectDirectory]SelectDirectory[/url] da unit FileCtrl.[/quote:ac41adf718]Putz , quem n�o sabe pesquisar help se lasca, por n�o saber achar a function SelectDirectory, fiz um form � t�a......

Andrew Vargas · Answer

Declare uses FileCtrl.Implemente isso no Clicar do bot�o:var  selDir : string;begin  SelectDirectory(Selecione uma pasta, C:, selDir);end;Para colocar o diret�rio em um Edit, basta cri�-lo e implementar tamb�m no bot�o a seguinte linha:Edit1.Text:= selDirEu tamb�m demorei um monte pra achar uma fun��o como esse que n�o tivesse um visual feio...

Alex · Answer

Funciona!!!...

Bernelio · Answer

pessoal, utilizem este comando abaixo, funciona e fica bem melhor na apresenta��o!shellexecute(0, nil, pchar( c:sistemaboleto ), nil, nil, SW_SHOWNORMAL);absBern�lio...

Romeu Sebastiao · Answer

ExtractFilePath(OpenDlg1.FileName);Simples assim....

F�rum Dialog p/ capturar diretorio #167825