Как сбросить InitialDir в OpenDialog

[TUberwer]

Всем привет!
У меня есть 2 кнопки, и один OpenDialog.
Кнопка1 открывает openDialog, с InitialDir := 'sound\slovar';
Кнопка2 открывает OpenDialog, c InitialDir := 'sound\shablon';
Но если я нажимаю например на кнопку1, и выбираю файл, то после этого, нажав на кнопку2 будет открываться не programm\shablon , а programm\sound. И на оборот...
Уже столько перепробовал, но ничего не помогло, вот код:

Кнопка1

begin
OpenDialog1.InitialDir:='sound\slovar';
OpenDialog1.Execute;
OpenDialog1.FileName;
BASS_StreamFree(Channel);
Channel := Bass_streamCreateFile(false, PChar(OpenDialog1.FileName),0,0,0);
Label10.Caption := OpenDialog1.FileName;
end;

Кнопка2

begin
OpenDialog1.InitialDir:='sound\shablon';
OpenDialog1.Execute;
OpenDialog1.FileName;
BASS_StreamFree(Channel);
Channel := Bass_streamCreateFile(false, PChar(OpenDialog1.FileName),0,0,0);
Label10.Caption := OpenDialog1.FileName;
end;

From Stilet: Код, который не является кодом PHP попрошу не выделять этим тегом. Выделяй его тегом по кнопке #

[саша40]

Во первых, прописывай полные пути.
Во вторых, советую обвести в условие метод Execute у диалога.

[TUberwer]

Сделал так, проблема не решилась

Кнопка1

var
dir : String;
begin
GetDir(0, dir);
OpenDialog1.InitialDir:= dir + '\sound\slovar';
if OpenDialog1.Execute then
begin
OpenDialog1.FileName;
BASS_StreamFree(Channel);
Channel := Bass_streamCreateFile(false, PChar(OpenDialog1.FileName),0,0,0);
Label10.Caption := OpenDialog1.FileName;
end;

Кнопка2

var
dir : String;
begin
GetDir(0, dir);
OpenDialog1.InitialDir:= dir + '\sound\shablon';
if OpenDialog1.Execute then
begin
OpenDialog1.FileName;
BASS_StreamFree(Channel);
Channel := Bass_streamCreateFile(false, PChar(OpenDialog1.FileName),0,0,0);
Label10.Caption := OpenDialog1.FileName;
end;

[Stilet]

советую обвести в условие метод Execute у диалога.

Поясню:

begin
OpenDialog1.InitialDir:='sound\slovar';
if OpenDialog1.Execute then begin
 BASS_StreamFree(Channel);
 Channel := Bass_streamCreateFile(false, PChar(OpenDialog1.FileName),0,0,0);
 Label10.Caption := OpenDialog1.FileName;
end;
end;

Опендиалог запоминает последний путь, и если не ошибаюсь - это зависит от системы а не от самого компонента.
Думаю нужно поступить так:

OpenDialog1.InitialDir:=ExtractFilePath(ParamStr(0))+'sound\slovar';

[TUberwer]

не помогло.. если я выберу в кнопке1 любой файл, то при нажатии на кнопку 2, будет открываться директория, которая должна открываться в кнопке1

[саша40]

Сообщение от TUberwer

не помогло.. если я выберу в кнопке1 любой файл, то при нажатии на кнопку 2, будет открываться директория, которая должна открываться в кнопке1

так пресвой в начальную деректорию, то что надо для второй.

Короче вот:

begin
OpenDialog1.InitialDir:=ExtractFilePath(ParamStr(0))+ '\sound\shablon';
if OpenDialog1.Execute=false then exit;
OpenDialog1.FileName;
BASS_StreamFree(Channel);
Channel := Bass_streamCreateFile(false, PChar(OpenDialog1.FileName),0,0,0);
Label10.Caption := OpenDialog1.FileName;
end;

[TUberwer]

теперь открывается постоянно slovar, я уже поставил и на ту и на ту кнопку \sound\shablon , но открывается \sound\slovar

так, я уже подумал... можно и на 2 разных OpenDialog, сделал для одной кнопки один OpenDialog, для второй - второй OpenDialog.
Открывается по кнопкам все правильно...
НО
Например: Нажимаю я на кнопку1, открывается OpenDialog1(проверяю по title диалогов) с правильным путем, закрываю диалог(не выбирая файла), потом нажимаю на кнопку2, открывается OpenDialog2, и путь тоже правильный.
Но если я например жму на кнопку1, открывается диалог1, выбираю файл, потом нажимаю на кнопку2, открывается диалог2(смотрю по тайтлу), но путь в диалоге2 уже такой же, как и в диалоге1.
Или наоборот:

я например жму на кнопку2, открывается диалог2, выбираю файл, потом нажимаю на кнопку1, открывается диалог1(смотрю по тайтлу), но путь в диалоге1 уже такой же, как и в диалоге2.

Почему так??

[Аватар]

в Options добавить ofNoChangeDir - тогда не будет меняться текущий каталог после віборки в диалоге

[TUberwer]

Сообщение от Аватар

в Options добавить ofNoChangeDir - тогда не будет меняться текущий каталог после віборки в диалоге

СПАСИБО ОГРОООМНОЕ! Весь день сижу и не могу сделать, а это так просто!

[Аватар]

Весь день сижу и не могу сделать, а это так просто!

Хватило бы 10 минут, чтобы в хелпе почитать описание свойств компонента. Не?