Скачать: CL | DM;

OpenSaveDialog выполняется через раз   Найти похожие ветки 

← →
<>   (2008-06-22 14:05) [0]

Я использую один и тот же OpenSaveDialog для записи и открытия файлов. Если при открытии выбрать два и более файлов (включена опция OSallowMultiSelect), то при следующем нажатии кнопки, вызывающей этот же самый диалог открытия, он не вызывается, и кнопку надо нажимать ещё раз. Если выбирать по одному файлу, то всё ОК.

Вот исходный код:

procedure TForm1.KOLForm1FormCreate(Sender: PObj);
begin
 OpenSaveDialog1.Filter := "Text files *.txt|*.txt|All files *.*|*.*";
 OpenSaveDialog1.OpenDialog := false;
end;

procedure TForm1.Button_Add_Files_Click(Sender: PObj);
begin
 OpenSaveDialog1.OpenDialog := true;
 OpenSaveDialog1.Filter := "Torrent files *.torrent|*.torrent|All files *.*|*.*";
 OpenSaveDialog1.Options := [OSFileMustExist,OSHideReadonly,OSOverwritePrompt,OSPathMustExist,OSallowMultiSe lect];

 IF OpenSaveDialog1.Execute THEN
 BEGIN
 
  // При втором нажатии кнопки после выбора 2 и более файлов здесь код не выполняется
  // When the button is pressed twice after MultiSelect, it doesn"t work

 END;

 OpenSaveDialog1.Options := [OSFileMustExist,OSHideReadonly,OSOverwritePrompt,OSPathMustExist];
 OpenSaveDialog1.Filter := "Text files *.txt|*.txt|All files *.*|*.*";
 OpenSaveDialog1.OpenDialog := false;
end;


В чём может быть проблема?

---

← →
Jon ©   (2008-06-22 16:23) [1]

From KOL.PAS:


> For case when OSAllowMultiselect option used, after each
> call initial value for a Filename containing several files prevents
> system from opening the dialog. To fix this, assign another initial
> value to Filename property in your code, when you use multiselect.


begin
OpenSaveDialog1.OpenDialog := true;
OpenSaveDialog1.Filter := "Torrent files *.torrent|*.torrent|All files *.*|*.*";
OpenSaveDialog1.Options := [OSFileMustExist,OSHideReadonly,OSOverwritePrompt,OSPathMustExist,OSallowMultiSe  lect];
OpenSaveDialog1.Filename := "";
IF OpenSaveDialog1.Execute THEN
BEGIN
 // The above line fixes the multi select problem
END;
OpenSaveDialog1.Options := [OSFileMustExist,OSHideReadonly,OSOverwritePrompt,OSPathMustExist];
OpenSaveDialog1.Filter := "Text files *.txt|*.txt|All files *.*|*.*";
OpenSaveDialog1.OpenDialog := false;
end;

---

← →
<>   (2008-06-22 16:41) [2]

Спасибо!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c