例： 假设我会有以下线索(请不要考虑本例的线程上下文执行方法中使用的内容,仅供说明)： type TSampleThread = class(TThread) private FOnNotify: TNotifyEvent; protected procedure Execute; override; public property OnNotify: TN