Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.02.06;
Скачать: 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 вся ветка

Текущий архив: 2005.02.06;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.023 c
3-1104382299
Azat
2004-12-30 07:51
2005.02.06
один DBNavigator для нескольких таблиц БД


4-1103195163
axx
2004-12-16 14:06
2005.02.06
SendMessage & TThread


14-1106144088
able
2005-01-19 17:14
2005.02.06
Подкскажите... насчет стали


6-1101558159
XGarik
2004-11-27 15:22
2005.02.06
Уведомление о прочтении мыла


1-1106542851
romal
2005-01-24 08:00
2005.02.06
Delphi .Net и железо