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

Подскажите когда и как надо освобождать TOpenSaveDialog   Найти похожие ветки 

← →
someone   (2008-02-18 21:48) [0]

Подскажите когда и как надо освобождать TOpenSaveDialog?

Вот фрагмент кода:


uses KOL;

var   Form1: TForm1;  OpenSaveDialog :TOpenSaveDialog ;

implementation {$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
   IF OpenSaveDialog.Execute THEN
   BEGIN
     Caption:=OpenSaveDialog.Filename;
   END;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   OpenSaveDialog.Create;
   OpenSaveDialog.OpenDialog:=true;
end;


Если освобождать в событии TForm1.FormClose, то будет ошибка.

---

← →
Vladimir Kladov ©   (2008-02-18 21:55) [1]

nEWoPENsAVEdIALOG

---

← →
someone   (2008-02-18 22:25) [2]

Вот так?:

uses KOL;

var   Form1: TForm1;

OpenDialog:POpenSaveDialog;

implementation {$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
   IF OpenDialog.Execute THEN
   BEGIN
     Caption:=OpenDialog.Filename;
   END;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  OpenDialog:=NewOpenSaveDialog("Add...","",[]);
  OpenDialog.OpenDialog := True;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 OpenDialog.Free;
end;


---

← →
Rocket ©   (2008-03-12 10:02) [3]

После выбора файла через TKOLOpenSaveDialog я не могу удалить папку, содержащую выбранный файл, пока не закрою свою программу. Причём сам файл удаляется успешно, проблема именно с папкой. Почему так происходит и как с этим бороться?

---

← →
Rocket ©   (2008-03-12 10:17) [4]

Попробовал в VCL - так же. Что ж теперь, писать свой собственный диалог?

---

← →
GMax   (2008-03-12 21:45) [5]

текущий каталог меняй после диалога

---

← →
Rocket ©   (2008-03-13 07:58) [6]

> текущий каталог меняй после диалога

Текущий каталог чего? Диалог я после показа вообще освобождаю. Пробовал указывать в InitialDir и Filename и пустые строки и "левые" (существующие) пути, но мало того, что после этого надо сделать Execute, так ещё и выбрать другой файл, чтоб всё сработало (папку "отпустило" :) )...

---

← →
Тыщ   (2008-03-13 09:07) [7]

SetCurrentDirectory()
Кстати, многие программы этим - [3] страдают.

---

← →
mdw ©   (2008-03-13 11:21) [8]

> Кстати, многие программы этим - [3] страдают.

Например Delphi7. :))

---

← →
Rocket ©   (2008-03-14 08:46) [9]

> SetCurrentDirectory()

Спасибо, Тыщ! :)

---

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

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



Память: 0.47 MB
Время: 0.007 c