Не работает SaveDialog1.Execute. Help

← →
Борис © (2002-09-23 09:20) [0]

Всем привет! Вот такие дела, вчера дома пытаюсь запустить SaveDialog1.Execute, не работает. Смотрю, как в других проектах запускал - также и работало. Шрешу на Win2k. Приходу на работу, собираю/компилирую на Win98, фиг, все-равно не работает. Даже не пойму почему ...

Вот код:
if RadioButton4.Checked=True then
begin
dir:=ExtractFilePath(Application.EXEName);

savedialog1.InitialDir:=dir;
savedialog1.FileName:="Текстовые файлы|*.txt";

if SaveDialog1.Execute then
begin
urlp:= Savedialog1.FileName;
if fileExists(urlp) then
deletefile(urlp);
showmessage(urlp);
end;
end;

Но косяк, SaveDialog1.Execute возвращает ложь, однако само окно диалога даже не появляется!

← →
MBo © (2002-09-23 09:26) [1]

savedialog1. Filter:="Текстовые файлы|*.txt";

to MBo ©
Спасибо, это надо было так лохануться!!! Еще раз спасибо

P.S. Не пейте, когда что-то пишете, потом хрен разберете.

Не работает SaveDialog1.Execute. Help Найти похожие ветки