关于多线程的使用(50)

原本的代码procedure startallbegin startmonth; sartweek;end;在timer3ontimer事件中;begin startall;end;procedure startweek;begin …..end;procedure startmonth;begin …..end; 现在的问题是我怎么样才可以把startmonth,和startweek都改写成多线程呢我改写了下面的代码procedure startmonth(point);stdcall;begin …..end;procedure startallbegin createthread(0,nil,@startmonth,0);end;好像不太行吗，有大大可否指点下?

有高手没有？

****

uses Classess;type TMyThread = class(TThread) private FOnExecute: TNotifyEvent; protected procedure Execute; override; public constructor TMyThread.Create(CreateSuspended: Boolean; AOnExecute: TNotifyEvent); end;constructor Create(CreateSuspended: Boolean; AOnExecute: TNotifyEvent);begin FOnExecute := AOnExecute; inherited Create(CreateSuspended);end;procedure Execute; override;begin if Assigned(FOnExecute) then FOnExecute(Self);end;// 使用TMyThread.Create(False, timer3ontimer);

ls 的大侠，编译不能通过啊，提示[DCC Error] MainFrm.pas(885): E2010 Incompatible types: 'TNotifyEvent' and 'TTimer'

知道原因了，漏了一个.

接受答案了.