首页 > 代码库 > Delphi线程类 DIY(把类指针作为参数传进去,就可以执行类里面的方法啦)
Delphi线程类 DIY(把类指针作为参数传进去,就可以执行类里面的方法啦)
Delphi 封装了一个很强大的线程类 TThread,
我们也自己动手制作一个简单的线程类
首先Type一个类
[delphi] view plain copy
- type
- TwwThread = class
- constructor Create; overload;
- destructor Destroy; override;
- private
- m_hThread: THandle; //线程
- m_ThreadID : TThreadID;
- public
- procedure Execute;
- end;
[delphi] view plain copy
- function wwThreadProc(Thread: TwwThread): Integer;
- begin
- Thread.Execute(); //
- end;
- constructor TwwThread.Create;
- begin
- m_hThread := CreateThread(nil, 0, @wwThreadProc, Pointer(Self), 0, m_ThreadID); { 这里的重点是第四个参数, 把类指针作为参数传进去,这样就可以执行类里面的方法啦}
- end;
- destructor TwwThread.Destroy;
- begin
- inherited;
- end;
- procedure TwwThread.Execute;
- begin
- // 这里写上代码
- end;
声明一下:
[delphi] view plain copy
- var
- myThread : TwwThread;
开始~
[delphi] view plain copy
- myThread := TwwThread.Create;
http://blog.csdn.net/warrially/article/details/7887700
Delphi线程类 DIY(把类指针作为参数传进去,就可以执行类里面的方法啦)
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。