Delphi 线程操作
2014-04-10 15:35
337 查看
//创建线程
function ThreadRun(parem: Pointer): Integer;
var
i:Integer;
begin
for i:=0 to 10000 do
begin
Form1.Canvas.TextOut(100,100,IntToStr(i));
end;
//endthread(0); //终止当前的线程,当放到主线程的时候就终止当前的主线程
end;
procedure TForm1.btn1Click(Sender: TObject);
var
ThreadID:LongWord;
begin
ThreadID:=1002;
BeginThread(nil,0,@ThreadRun,nil,1001,ThreadID); //调用线程
SuspendThread(hThread); //挂起线程
ResumeThread(hthread); //激活线程
TerminateThread(hthread,0);//终止指定的线程
end;
function ThreadRun(parem: Pointer): Integer;
var
i:Integer;
begin
for i:=0 to 10000 do
begin
Form1.Canvas.TextOut(100,100,IntToStr(i));
end;
//endthread(0); //终止当前的线程,当放到主线程的时候就终止当前的主线程
end;
procedure TForm1.btn1Click(Sender: TObject);
var
ThreadID:LongWord;
begin
ThreadID:=1002;
BeginThread(nil,0,@ThreadRun,nil,1001,ThreadID); //调用线程
SuspendThread(hThread); //挂起线程
ResumeThread(hthread); //激活线程
TerminateThread(hthread,0);//终止指定的线程
end;
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- delphi线程中操作access数据库经常报内存地址错误解决方法
- delphi 线程教学第二节：在线程时空中操作界面（UI）
- Delphi中多线程用Synchronize实现VCL数据同步显示 解决在线程中操作控件出现问题
- delphi中文件以及线程操作基础
- 线程间操作无效: 从不是创建控件“”的线程访问它。
- VB.NET中的线程操作(Thread，Mutex)
- invoke委托解决“线程间操作无效: 从不是创建控件的线程访问它”的问题
- C#之线程、委托,强强联手操作窗体控件...
- Java线程操作公共类
- TMsgThread, TCommThread -- 在delphi线程中实现消息循环
- 线程间操作无效：从不是创建控件“textBox1”的线程访问它
- Delphi操作Excel大全
- 线程！线程！！线程！！！(Delphi版)
- 线程间操作无效: 从不是创建控件的线程访问它
- Linux线程的操作以及与进程的区别
- Winform跨线程操作最简单的办法
- DELPHI IDE中部分操作快捷方式
- 线程操作，参考代码
- C#笔记 跨线程操作控件
- iOS开发—线程的模拟暂停和继续操作