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

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

← →
denis24   (2005-01-20 18:27) [0]

В создаваемом на главной форме потоке выполняю цикл в конструкции try..except..end
При ошибке в секции except юзера спрашишает продолжить/нет
Так вот ,в среде  делфи все вроде ок(ошибка,идет в except .спрашивает ,если mrno то exit из цикла,иначе продолжаем.
А запуская сам экзешник на  этом вопросе при нажатии на "да" все равно не продолжает и вылетает из цикла.
Где грабли?

---

← →
begin...end ©   (2005-01-20 18:30) [1]

> denis24   (20.01.05 18:27)

> В создаваемом на главной форме потоке

Уже смешно.

> Где грабли?

Где код?

---

← →
denis24   (2005-01-21 12:37) [2]

Создаю поток
frmSplash:=TfrmSplash.Create(self);
with  Tworking_select.Create1(true,DirectoryEditvd.Text,DirectoryEditv1.Text,FilenameEdit1.Text,ComboBox1.text,choice,cmbFile. ItemIndex) do
try
       FreeOnTerminate:=true;
       OnTerminate:=frmSplash.Working_ReportFinished ;
       resume;
       frmSplash.ShowModal;

finally
       frmSplash.free;
end;

В потоке
Создаю тейблы
потом цикл
while  tablehelp.Eof=false  do
.
. case choice of
1:
begin
try
.
.
.
except
if MessageDlg("Ошибка ....Продолжить)=mrno then
begin
tablehelp.Close; Screen.; exit;
end;
end;
end;
2:
 begin
try
.
.
.
except
if MessageDlg("Ошибка ....Продолжить)=mrno then
begin
tablehelp.Close; Screen.; exit;
end;
end;
end;
tablehelp.next;
end;

В run-time все ок.На ответ да продолжается цикл.
Запуская чистый экзешник вылетает на ошибке доже не предлагая вопрос продолжить Да/нет

---

← →
Poirot ©   (2005-01-21 12:41) [3]

А мб ошибка возникает просто в другом месте?:))
ЗЫ: а код можно было оформить нормально? тут теги даже есть для этого!

---

← →
Digitman ©   (2005-01-21 12:44) [4]

тело MessageDlg() обращается к VCL-объектам, а это НЕдопустимо в контексте доп.трэда.

---

← →
GuAV ©   (2005-01-21 13:23) [5]

И нужем вам этот MessgaeDlg ?
Не лучше ли воспользоваться MessageBox ?

---

← →
Eraser ©   (2005-01-21 14:56) [6]

denis24
Уточни параметры при вызове MessgaeDlg.

---

← →
AlexG ©   (2005-01-21 15:26) [7]

Покажи Execute потока. Полностью.

---

← →
denis24   (2005-01-21 16:12) [8]

Спасибо GuAV ©
Помогло

---

← →
Digitman ©   (2005-01-21 16:21) [9]

> denis24   (21.01.05 16:12) [8]


остается надеяться, что ты понял ВСЕ отличия MessgaeDlg от MessageBox

---

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

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



Память: 0.47 MB
Время: 0.022 c