BorlandTalk.com

[JAFO]

I have an intermittent problem with my application whenever it starts a
thread. It works fine with no errors except half the time it won't finish...
It just stops - mainly after I've done a lot of mouse-clicks in the main
application on a scrollbar but other input causes the thread to quit. It
doesn't hang my app nor does it signal that it has been terminated. Trying
to 'resume' it does nothing either.

It's the only thread in the app.



--------------------------------------------------------
Start Thread...
--------------------------------------------------------

MyThread := TMyThread.Create(true);
MyThread.priority:=tplower;
MyThread.resume;
IsRunning:=true;

while IsRunning do Application.ProcessMessages; //same results without
this

--------------------------------------------------------
What the thread does...
--------------------------------------------------------

procedure TMyThread.Execute;

for i:=1 to FileListGrid.rowcount-1 do begin

if Terminated then break;

//do lot's of processing here with:
//streams, images, disk I/O... things on the main form, etc
//uses a few procedures from the main form


end; //i loop

UpdateCaption(i); //update formmain's progressbar defined in
"TMyThread.UpdateCaption"

end;

--------------------------------------------------------

[CrashCodes]

"JAFO" <xcaliber (AT) future (DOT) net> wrote

[James Mauldin]