(abrir/salvar) no diret�rio do arq. ativo

Question

alguem sabe como abrir o dialogo (abrir/salvar) no diret�rio do arquivo

Skaarj · Answer

N�o estou bem certo, mas acho q voce quer algo assim:

Onclick do TButton

var
  diretorioPadrao : String;
begin
with OpenDialog1 do
  begin
    diretorioPadrao := ExtractFileDir(Filename);
    InitialDir      := diretorioPadrao;
    execute;
    edit1.Text      := FileName;
  end;

Agora vc coloca o valor da [b:ffeadf1159]diretorioPadrao[/b:ffeadf1159] no initialdir do SaveDialog

with SaveDialog1 do
  begin
    InitialDir := diretorioPadrao;
    execute;
  end;