摘要：TThreadStatus = (TError, TRun, TNotFree, TNull, TPause, TResume, TStop, TSuccessful); TMessageEvent = procedure(var Message: TMessage) of object; TMForm = class(TForm) private FMessageEvent: TMessageEvent; procedure WndProc(var Message: TMessage); override; public property MessageEven... 阅读全文