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.

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

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

> denis24 (21.01.05 16:12) [8]

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

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