摘要: 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... 阅读全文
posted @ 2012-07-13 11:56 金琪 阅读(123) 评论(0) 推荐(0)