Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Открытие файла

Lelik © (2004-11-28 01:59:00)
Всем привет! Повесил на форму опендиалог и сэйвдиалог. Процедуры все описал работают(открывают сохраняют), но есть такая фича-это когда Файл-Открыть появляется опендиалог, если выбрать файл, то все нормально откроется, но если здесь нажать кансл или отмену, то возникает ошибка. Помогите как это побороть.

ASoft (2004-11-28 09:22:00) [1]
If not OpenDialog.Execure then exit;

Defunct (2004-11-28 05:33:00) [2]
GanibalLector © (28.11.04 02:48) [6]

Можно иногда реагировать. Но в большинстве случаев это не нужно.

asvt (2004-11-28 03:13:00) [3]
Я вообще этого не спрорю знать конечно такие вещи не помешает а вот подходящий случай с опендиалогом я представит не могу
нажал пользователь cancel а ты ему ты а ну ка открой файл xxx

GanibalLector (2004-11-28 02:48:00) [4]
2 asvt
Это [4] ,уважаемый,я Вам показал,что можно и НУЖНО реагировать на кнопку "закрыть"!!!

asvt (2004-11-28 02:45:00) [5]
GanibalLector © (28.11.04 02:27) [4]

if OpenDialog1.Execute then
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

а ты просто добираешся до кнопки что вообщето и не надо
а исходя из поста [2] ghjcnj просто придется опять же вставлять
if then между блоками бегин..енд

GanibalLector (2004-11-28 02:27:00) [6]
2 asvt
>Это уже другие дей ствия и к кнопке они не относятся
if (OpenDialog1.Execute) and (OpenDialog1.FileName<>'') then messagedlg('Ok',mterror,[mbok],0) else messagedlg('Cancel',mterror,[mbok],0);

asvt (2004-11-28 02:21:00) [7]
Sirakuz (28.11.04 02:06) [2]
End else
Begin
//Юзер нажал на кнопку "Закрыть
End;

Это уже другие дей ствия и к кнопке они не относятся

Sirakuz (2004-11-28 02:06:00) [8]
If OpenDialog1.Execute then Begin //Юзер открыл файл End else Begin //Юзер нажал на кнопку "Закрыть End;
То же самое в SaveDialog'e

asvt (2004-11-28 02:04:00) [9]
ifOpenDialog1.Execute then
{действия}

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »