转载自：https://www.cnblogs.com/lackey/p/8988376.html

面向对象编程手法，是一项综合技能，单独把谁拿出来说都不合适。本次重写 TSimpleThread ,使其能在 D7 下运行。

基于 TSimpleThread ,重磅推出 TSimpleUI.ExeProcInMainThread ，命名更精准，消除使用时的疑惑。详情如下：

1.TSimpleThread ，本博客线程教程中，已详细介绍。

2.TSimpleUI , 在 UI Thread 或称之为 MainThread 中执行 Proc 。

3.TManagementBase , 管理基类，用于编写线程程序，在此类中实现了 ThreadDispMsg(AMsg:string) 。

4.TElegantThread , 提供 Synchronize, Queue 函数来执行 Proc ,就是把 Proc 塞入线程中来执行。(未写实例)

本例演示，封装，让界面上的代码最少化。用事件传递参数，用List保存参数，何时释放 Pointer 等等

本例源代码下载(delphi7)