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

OpenDialog   Найти похожие ветки 

← →
assassin8899   (2008-05-18 14:54) [0]

Имеется OpenDialog и условие

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

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

---

← →
No_Dead ©   (2008-05-18 15:09) [1]

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

---

← →
Германн ©   (2008-05-18 15:13) [2]

FileName:="";
repeat
 ...
until FileName <> "";

---

← →
korneley ©   (2008-05-18 15:28) [3]

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

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

---

← →
assassin8899   (2008-05-18 16:01) [4]

я пробовал goto но у меня происходит зацикливание при выборе БД

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

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

---

← →
No_Dead ©   (2008-05-18 16:34) [5]

> [4] assassin8899   (18.05.08 16:01)

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

---

← →
assassin8899   (2008-05-18 16:52) [6]

Все заработало.Сделал goto

---

← →
Renegat   (2008-05-18 17:04) [7]

Я бы такую прогу сразу через диспетчер снял и стёр нафиг от греха подальше =)
Так что +1 за вариант из [5].

---

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

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



Память: 0.46 MB
Время: 0.015 c