Jump to content
Fórum Script Brasil
  • 0

[resolvido] Como Fazer Um Botão "procurar" Ou "abrir&qu


Guest --felipe --
 Share

Question

Guest --felipe --

alguém sabe como se faz para mostrar aquela janelinha básica do windows, que serve para procurar um arquivo

exemplo: clicando em Open, para abrir um arquivo no delphi

é essa que eu quero..

e tem como botar isso em um inputbox??

se não tiver eu crio um novo form sem problemas

valeu abraço!

Link to comment
Share on other sites

5 answers to this question

Recommended Posts

  • 0

Opa

Tem um componente chamado OpenDialog fica na paleta Dialogs do delphi,

não seria ele?

Se for pra usar é só chamá-lo, depois de configurar ele tudo certinho você

faz OpenDialog1.Execute;

Se não for esta, então só pode ser a função BrowseforFolder do Windows

da uma olhada nisto.

abraçox

Link to comment
Share on other sites

  • 0
Guest --felipe --
Opa

Tem um componente chamado OpenDialog fica na paleta Dialogs do delphi,

não seria ele?

abraçox

beleza consegui fazer

repeat
    lst := InputBox('.TXT','Lista importada do SIGE.......... para Procurar digite "p"','c:\gerar brd\lista\');
    if (lst = 'c:\gerar brd\lista\') then exit;
    if (UpperCase(lst)) = 'P' then begin
      OpenDialog1.execute;
      lst:=opendialog1.FileName;
    end;
  until FileExists(lst);
  AssignFile(Input,lst);
  reset(input);

~

sugere algo pra melhorar a parte -> "para procurar digite p", achei que fico meio amador uheheui

valeu, n conheçia esse componente

abraço =)

Link to comment
Share on other sites

  • 0
beleza consegui fazer

repeat
    lst := InputBox('.TXT','Lista importada do SIGE.......... para Procurar digite "p"','c:\gerar brd\lista\');
    if (lst = 'c:\gerar brd\lista\') then exit;
    if (UpperCase(lst)) = 'P' then begin
      OpenDialog1.execute;
      lst:=opendialog1.FileName;
    end;
  until FileExists(lst);
  AssignFile(Input,lst);
  reset(input);
  ~
sugere algo pra melhorar a parte -> "para procurar digite p", achei que fico meio amador uheheui
felipe, qual a finalidade de utilizar o InputBox? Por que não utilizar apenas a caixa de diálogo OpenDialog?
// *** estas propriedades você pode definir em design-time
OpenDialog1.Title := 'Arquivo a importar do SIGE';
OpenDialog1.Filter := 'Text files (*.txt)|*.txt|All files (*.*)|*.*';
OpenDialog1.FilterIndex := 2;
OpenDialog1.InitialDir := 'c:\gerar brd\lista';
//**********
if OpenDialog1.Execute then  // significa que foi selecionado um arquivo
begin
  AssignFile(Input, OpenDialog1.FileName);
  Reset(Input);
  ...
  CloseFile(Input);
end;

Link to comment
Share on other sites

  • 0
Guest --felipe --
qual a finalidade de utilizar o InputBox? Por que não utilizar apenas a caixa de diálogo OpenDialog?

é fiz assim e ficou melhor mesmo..

OpenDialog1.Title := 'Arquivo .PIK';
  OpenDialog1.Filter := 'Pick and Place (*.PIK)|*.pik';
  OpenDialog1.FileName:='';
  if OpenDialog1.Execute then
  begin
    AssignFile(Input, OpenDialog1.FileName);
    Reset(Input);
  end else exit;
  ............
  ............
  CloseFile(Input);
  OpenDialog1.Title := 'Lista de Componentes importada do SIGE';
  OpenDialog1.Filter := 'Text Files (*.TXT)|*.txt';
  OpenDialog1.FileName:='';
  if OpenDialog1.Execute then begin
    AssignFile(Input, OpenDialog1.FileName);
    Reset(Input);
  end else exit;
  .....

eu defini a propriedade Options - ofNoChangeDir como true, afim de que não mude o diretório inicial, já que uso o opendialog mais de 1 vez

a propriedade InitialDir realmente não muda, porém depois de escolher o arquivo .PIK, ele segue o mesmo diretório, por isso usei OpenDialog1.FileName:='';

fiz certo??

valeu agora ficou show!

Link to comment
Share on other sites

  • 0
a propriedade InitialDir realmente não muda, porém depois de escolher o arquivo .PIK, ele segue o mesmo diretório, por isso usei OpenDialog1.FileName:='';

fiz certo??

Se está funcionando como você esperava, e aparentemente está, então está certo.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Forum Statistics

    • Total Topics
      149.8k
    • Total Posts
      646.6k
×
×
  • Create New...