2019年2月12日 星期二

终止TTask.Run启动的线程 - 红鱼儿

红鱼儿| 博客园_红鱼儿 |23:27:00

上面的代码，运行正常，按Button1开启一个线程，Button2终止线程运行。这是一个VCL项目。可以看到用一个私有变量FTaskIsRunning来控件线程中的循环。这个实现是在一个Form中，运行正常，现在换成TFrame中实现，基本上是复制Form中的实现代码，可以忽略不看。 然后，?..