Проблема взаимодействия потока с формой

[Arkuz]

Здравствуйте. Подскажите пожалуйста как можно обработать пару проблемок.

1. При удачном завершении потока должно закрываться окно StatusForm. Окно закрывается, но есть мелкая неприятность - если ничего не трогать, то после завершения окно висит, а как только на жать на любую клавишу или двинуть мышь, то тогда закрывается. Вот хотелось бы, чтобы эта ситуация устранилась.
Я так понимаю, что окно получает сообщение на закрытие и при следующем такте только начинает обрабатываться... Или я не так понимаю...

2. Нужно в случае прерывания потока так же закрывать окно StatusForm, но вот что-то никак не получается...

Проект прикрепил...

Я так понимаю, что тут в принципе нет ничего сложного, просто я в 1 раз с потоками работаю...

[BARNEY]

может стоит почитать про

try
except

[InternetStranger]

Все-таки, в следующий раз лучше бы выложить код потока в тегах [code], чем прикреплять целый проект ( мало найдется желающих ковыряться в чужих исходниках ).

По сабжу: Ваша проблема возникает из-за того, что вы обращаетесь напрямую к VCL-компонентам из дополнительного потока (в данном случае к форме). Что категорически не рекомендуется, причем самой средой при создании модуля потока. (Из-за особенностей реализации VCL-библиотеки).

Перенесите код закрытия (условную конструкцию) внутрь синхронизируемого метода updpr. Это гарантирует, что метод будет выполнятся к контексте главного потока.

Причем Suspended:=false; оттуда придется убрать. Дополнительный поток не может сам себе скомандовать уснуть - это приведет к взаимоблокировке главного и дополнительного потоков ))

[Arkuz]

Сообщение от InternetStranger

Все-таки, в следующий раз лучше бы выложить код потока в тегах [code], чем прикреплять целый проект ( мало найдется желающих ковыряться в чужих исходниках )

Да я специально прикрепил проект, чтобы понятно было где какое окно, что за поток, какие переменные и т.д.
А что касается преноса условной части... Сделал увы не помогло...

Сообщение от BARNEY

может стоит почитать про

try
except

Увы, эта конструкция тоже не отрабатывает так как хотелось бы...

Мне удалось сделать, чтобы окно получало сообщение о закрытии. Осталась проблема - независимо, удачно завершилась операция или была прервана пользователем, окно с прогрес баром висит пока не нажмёшь на кнопку или не пошевелишь мышью...

Для удобства: тексты потока и статус-формы:

Текст формы:

procedure TStatusForm.OkCancelBtnClick(Sender: TObject);
begin
 ren_thr.Suspend;
 if MessageBox(handle,'Прервать операцию','Внимание',mb_YesNo)=mrYes
  then
    begin
      ren_thr.Resume;
      ren_thr.Terminate;
    end
  else ren_thr.Resume;
end;

procedure TStatusForm.FormShow(Sender: TObject);
begin
 ren_thr:=RenameTread.Create(true);
 ren_thr.Resume;
 ren_thr.Priority:=tpLower;
end;

Текст потока:

procedure RenameTread.badexit;
begin
 if Terminated then
  begin
    StatusForm.Close;
    ren_thr.Destroy;
  end;
end;

procedure RenameTread.Execute;
var
 i:integer;
begin
 StatusForm.ProgressBar1.Max:=MainForm.ListBox1.Items.Count;
 ii:=0;
 for i:=0 to MainForm.ListBox1.Items.Count-1 do
   begin
     Synchronize(updpr);
     RenameFile(MainForm.ListBox1.Items.Strings[i],MainForm.TranslitName(MainForm.ExNameMp3(MainForm.ListBox1.Items.Strings[i])));
     ii:=i+1;
     Synchronize(updpr);
     badexit;
   end;
goodexit;
end;

procedure RenameTread.goodexit;
begin
 StatusForm.Close;
 ren_thr.Destroy;
end;

procedure RenameTread.updpr;
begin
 StatusForm.ProgressBar1.Position:=ii;
 StatusForm.Label1.Caption:=IntToStr(round(StatusForm.ProgressBar1.Position*100/StatusForm.ProgressBar1.Max))+'%';
end;

[Arkuz]

В принципе нашёл выход из положения. На форму добавил лэйбл и использую его как статус, когда копируется, статус - выполняется, по завершении - завершено и пока что-нибудь не нажмёшь окошко висит и информирует...

Не было бы счастья, да несчастье помогло :-)