Caixa de DIretórios

[Leonardo Machado Moreira 0]

Fala Pessoal ..Alguem conhece um componente dialog que eu escolha o diretório e ele me retorna o caminho do mesmo, identico ao TDirectoryEdit do RxLib ,,só que em Port... rsrs o Rx é em inglês,, mas se alguem souber como passalo pro port. ta perfeito.. mas poder ser outro componente tbm que faça a mesma coisa...des de ja agradeço

[marcio.theis 3]

Existe uma forma de se fazer sem usar componente, que é usando o SelectDirectory, pode fazer algo do tipo:

 

procedure TForm1.BitBtn1Click(Sender: TObject);var	diretorio: string;begindiretorio:='';if SelectDirectory('Selecione um Diretório','',diretorio) then	ShowMessage(diretorio);end;

Sendo que pode ainda declarar logo após a primeira linha do seu projeto o seguinte:

{$WARN UNIT_PLATFORM OFF}

Isto faz com que não de Warning de plataforma.

No caso o exemplo com o fonte completo fica assim:

 

unit Unit1;{$WARN UNIT_PLATFORM OFF}interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, Buttons, FileCtrl;type  TForm1 = class(TForm)	BitBtn1: TBitBtn;	procedure BitBtn1Click(Sender: TObject);  private	{ Private declarations }  public	{ Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.BitBtn1Click(Sender: TObject);var	diretorio: string;begindiretorio:='';if SelectDirectory('Selecione um Diretório','',diretorio) then	ShowMessage(diretorio);end;end.

[Leonardo Machado Moreira 0]

VALEW CARA EXATAMENTE ISSO QUE EU QUERIAFLOW

[marcio.theis 3]

beleza... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Leonardo Machado Moreira 0]

só que rsrs nao tem um jeito de fazer esta tela aparecer no centro da tela???

[marcio.theis 3]

Vixe... Não sei lhe dizer... vou ver como é os fontes dele...

[marcio.theis 3]

Me lembrei aqui, uso tb um componente chamado TOpenDirectory, se quiser, pode baixar aqui.