Přidání dialogu pro otevření souboru – Delphi – Fórum – Programujte.com

Zkopíroval jsem OpenDialog1 na OpenDialog2 a nakonfiguroval a zkompiloval a aplikace teď nejde spustit. Čím to je? Chyba ereaderror invalid property value. Špatně jsem nakonfiguroval options? I když ten opendialog zase smažu a rekompiluju tak to stále hlásí tu samou chybu v souboru uc_heb

Chtěl bych dialog pro výběr adresáře. Ideální by bylo, kdyby měl taky pole, kde by bylo možné zadat cestu přímo, např. copy/paste + enter... Že by v tom poli mohla být vidět aktuální cesta.

#2 MilanL
tak ne ty dialogy jsou v pořádku, tu chybu háže BOOksDialog

POZOR když zrušíš v kodu Event proceduru - musíš jí vymazat i z property formu.

V kodu jsi zrušil nebo přejmenoval proceduru FormCreate, ale u formuláře ti zůstala nastavená.

Aha, tak dík. Já ani nevím jak se mi to povedlo. A když odkomentuju proceduru path1Click .. nevíš proč po kliknutí na menu Nastavení/Složka s učebnicemi se neotevře ten opendialog? A dá se to udělat tak, aby se to otevřelo buď ve složce ../ucebnice nebo v ../  vzhledem k adresáři ve kterém je umístěný program.

Joj, tak jsem přišel proč to nešlo, neměl jsem nastavenou událost path1Click. Teď ještě přijít na to jak to udělat, aby šel vybrat adresář.

Jsem to nakonec vyřešil takto:

SelectDirectory(BooksDir, options, 0);

Je to nejjednodušší a na výběr adresáře to stačí.

#5 oxidián
sory, šel jsem brzy spát a dnes v práci bylo pilno.

jinak pro d2010 návod:

https://stackoverflow.com/questions/7422689/selecting-a-directory-with-topendialog

https://stackoverflow.com/questions/9527762/delphi-how-to-use-opendialog1-for-choosing-a-folder

obecně by mělo stačit  

var
  OpenDialog: TFileOpenDialog;
  SelectedFolder: string;
.....
OpenDialog := TFileOpenDialog.Create(MainForm);
try
  OpenDialog.Options := OpenDialog.Options + [fdoPickFolders];
  if not OpenDialog.Execute then
    Abort;
  SelectedFolder := OpenDialog.FileName;
finally
  OpenDialog.Free;
end;

pohrát si v nastavením OpenDialog.options a do OpenDialog.dir :=path aplikace

Jó díkes.