我这有一个多线程的问题！请大家给看看！谢谢了！！！

Question

wm_threaddonemsg主进程接收子线程退出的消息号.

Answer 1

你是重载了析构函数吧，啊？
在声明procedure mythread.destroy;时要加override即在private部分：
 procedure mythread.destroy; override;

Answer 2

const wm_threaddonemsg=wm_user+8
这句是自定义一个消息，wm_user是系统内定的一个消息号，如果用户子定义消息，一般使用下面的格式：
const 自定义消息名称 = wm_user + 一个数字(要求小于0x7FFF)。—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————