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

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

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

OpenDialog

assassin8899 © (2008-05-18 14:54:00)
Имеется OpenDialog и условие

if opendialog1.Execute then
begin
FileName:=opendialog1.FileName;
....
end
ELSE
messageDlg('Для начала отройте БД',mtWarning,[mbOK],0);

Как сделать чтобы после нажития конопки "ОТМЕНА" , то бишь после messageDlg(..); выполнялась опять операция
if opendialog1.Execute then
begin
FileName:=opendialog1.FileName;
....

Renegat (2008-05-18 17:04:00) [1]
Я бы такую прогу сразу через диспетчер снял и стёр нафиг от греха подальше =)
Так что +1 за вариант из [5].

assassin8899 (2008-05-18 16:52:00) [2]
Все заработало.Сделал goto

No_Dead (2008-05-18 16:34:00) [3]
> [4] assassin8899 (18.05.08 16:01)

а не проще ли писать «Работа приложения не возможна, пока не будет выбрана база!».
А вообще, сделай K.I.S.S.%>

assassin8899 (2008-05-18 16:01:00) [4]
я пробовал goto но у меня происходит зацикливание при выборе БД

>>тобишь пока я не выберу файл то буду наблюдать постоянно это окно?%>
впринципе да
Изначально была проблема чтобы при нажатии кнопки ОТМЕНА у меня вновь появлялось окно и так пока я не выберу файл БД

>>А убивать программу, если файл не выбран, через диспетчер задач собираешься?
вот это сейчас для меня и проблема
Теперь каждый раз как я выбираю БД у меня это окно появляется вновь и вновь

korneley (2008-05-18 15:28:00) [5]

> тобишь пока я не выберу файл то буду наблюдать постоянно
> это окно?

А убивать программу, если файл не выбран, через диспетчер задач собираешься?

Германн (2008-05-18 15:13:00) [6]
FileName:='';
repeat
...
until FileName <> '';

No_Dead (2008-05-18 15:09:00) [7]
??? тобишь пока я не выберу файл то буду наблюдать постоянно это окно?%>

Наверх

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