Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.12.09;
Скачать: [xml.tar.bz2];

Вниз

Как обработать нажатие Отмены в окне открытия файла?   Найти похожие ветки 

 
WFS ©   (2007-11-14 15:08) [0]

Я пишу:
Opendialog1.Execute;
Все что я пишу далее не зависит от того, какую кнопку я нажму:Открыть или Отмена.
vbCancel он не распознает в данном случае


 
Reindeer Moss Eater ©   (2007-11-14 15:08) [1]

Execute это функция


 
Palladin ©   (2007-11-14 15:09) [2]

еще одна жертва Анатолия :)


 
BigShittttt   (2007-11-14 15:10) [3]

if OpenDialog.Execute then
begin
// Открыть
end
else
begin
// отмена
end


 
WFS ©   (2007-11-14 15:43) [4]

Нет, вы не так поняли
Я пишу
Opendialog1.Execute;
Assignfile(opendialog1.filename)
Reset(f)

потом запускаю, получается вот что

Если я файл выберу, то есть нажму "Открыть" , то он благополучно откроется
А если нажму отмену, то он все равно будет пытаться открыть его.
Вот я и спрашиваю, как это предусмотреть в коде программы.


 
Palladin ©   (2007-11-14 15:48) [5]


> WFS ©   (14.11.07 15:43) [4]

ты тупой чтоли?
If  OpenDialog1.Execite Then
Begin
 Assignfile(opendialog1.filename)
 Reset(f)
 ...
End;


 
Anatoly Podgoretsky ©   (2007-11-14 15:57) [6]

Уже и код не помогает.


 
WFS ©   (2007-11-14 15:59) [7]

Не, просто как то странно получается.
Функция выполняет роль также процедуры.

P.S. что-ли пишется через дефис, грамотей


 
WFS ©   (2007-11-14 16:00) [8]

Все, получилось, спасибо


 
Германн ©   (2007-11-14 16:57) [9]


> Palladin ©   (14.11.07 15:09) [2]
>
> еще одна жертва Анатолия :)
>

Ну и глаз у него!
:)


 
Denis__ ©   (2007-11-14 17:08) [10]


> Функция выполняет роль также процедуры.

В смысле? Какой процедуры? Попробовал узнать у юзера, какой файл он хочет открыть, если юзер чего-то открыл, то True, иначе False.
???


 
WFS   (2007-11-15 00:13) [11]

Ну я имею ввиду, что она не только возвращает значение, открыл он или нет, но при этом еще и открывает окно открытия файла.
А открытие окна открытия файла(сорри за тавтологию) - это уже процедура.
Почему жертва Анатолия? Я вообще с ним не знаком:)
Скорее жертва препода, который меня заставил писать эту долбаную прогу для тестирования студентов:)


 
Vice____   (2007-11-15 00:34) [12]


> Скорее жертва препода, который меня заставил писать эту
> долбаную прогу для тестирования студентов:)

ради любопытства, прога для реальных задач или домашнее задание если первое уср...ся можна с препода когда он запустить прогу)


 
WFS   (2007-11-15 01:20) [13]

Прога для проведения тестов. Вопрос, несколько вариантов ответа


 
Плохиш ©   (2007-11-15 01:21) [14]


> WFS   (15.11.07 00:13) [11]

Маразм... вот оно новое поколение - "поколение ..."


 
Германн ©   (2007-11-15 01:55) [15]


> Ну я имею ввиду, что она не только возвращает значение,
> открыл он или нет, но при этом еще и открывает окно открытия
> файла.
> А открытие окна открытия файла(сорри за тавтологию) - это
> уже процедура.
>

Прав Плохиш. Тут и слов нормальных не подберёшь, чтобы охарактеризовать данную ситуацию.
Тут даже LVT&AP - contains in vain.



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

Форум: "Начинающим";
Текущий архив: 2007.12.09;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.042 c
11-1180190605
Kustarnik
2007-05-26 18:43
2007.12.09
RbControls for Kol


6-1175434020
Lyberzon
2007-04-01 17:27
2007.12.09
Как отправить на печать документ из TWebBrowser?


2-1195202524
IvanZ
2007-11-16 11:42
2007.12.09
середина TRect


15-1194562284
pavel
2007-11-09 01:51
2007.12.09
Списки очередей


2-1194963791
Shurup
2007-11-13 17:23
2007.12.09
InputBox & шрифт





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский