delphi多线程编程5
9页1、delphi多线程编程5窗体文件:object Form1: TForm1Left = 0Top = 0Caption = Form1ClientHeight = 206ClientWidth = 371Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = TahomaFont.Style = OldCreateOrder = FalseOnDestroy = FormDestroyPixelsPerInch = 96TextHeight = 13object PaintBox1: TPaintBoxLeft = 8Top = 8Width = 114Height = 153endobject PaintBox2: TPaintBoxLeft = 128Top = 8Width = 114Height = 153endobject PaintBox3: TPaintBoxLeft = 248Top = 8Width = 114Height
2、= 153endobject Button1: TButtonLeft = 288Top = 172Width = 75Height = 25Caption = Button1TabOrder = 0OnClick = Button1Clickendend可以借助入口函数的参数, 把这个程序简化一下(窗体和运行效果不变):unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls;typeTForm1 = class(TForm)PaintBox1: TPaintBox;PaintBox2: TPaintBox;PaintBox3: TPaintBox;Button1: TButton;procedure Button1Click(Sender: TObject);procedure FormDestroy(Sender: TObject);end;varForm1: TForm1;impleme
3、ntation$R *.dfmvarh1,h2,h3: THandle;线程的入口函数: 不同的线程画不同颜色的椭圆function ThreadFun(p: Pointer): Integer; stdcall;vari,x1,y1,x2,y2: Integer;paint: TPaintBox;begincase Integer(p) of1: beginpaint := Form1.PaintBox1;paint.Canvas.Brush.Color := clRed;end;2: beginpaint := Form1.PaintBox2;paint.Canvas.Brush.Color := clGreenend;3: beginpaint := Form1.PaintBox3;paint.Canvas.Brush.Color := clBlue;end;end;for i := 0 to 5000 do with paint dobeginx1 := Random(Width); y1 := Random(Height);x2 := Random(Width); y2 :=
4、 Random(Height);Canvas.Lock;Canvas.Ellipse(x1,y1,x2,y2);Canvas.Unlock;Sleep(0);end;Result := 0;end;procedure TForm1.Button1Click(Sender: TObject);varID: DWORD;beginh1 := CreateThread(nil, 0, ThreadFun, Ptr(1), 0, ID);h2 := CreateThread(nil, 0, ThreadFun, Ptr(2), 0, ID);h3 := CreateThread(nil, 0, ThreadFun, Ptr(3), 0, ID);end;procedure TForm1.FormDestroy(Sender: TObject);beginCloseHandle(h1);CloseHandle(h2);CloseHandle(h3);end;end.多用点数组, 再简化一下(窗体与效果一样):unit Unit1;interfaceusesWindows, Messages, S
《delphi多线程编程5》由会员M****1分享,可在线阅读,更多相关《delphi多线程编程5》请在金锄头文库上搜索。
大班个人安排幼儿园集合9篇
幼儿园中班第二学期德育计划范文(4篇)
2023年公司年度行政工作计划范文(五篇).doc
小学一年级语文教案-《第一册《东方明珠》》教案
化学教学反思
康辉旅行社管理制度MicrosoftWord文档
【精校版】浙江省嘉兴市嘉善一中等五校八年级上学期期中考试英语试题
物资部年度工作计划样本(6篇).doc
某某医院给排水技术标
暑假工辞职信范文
二手车转让协议书官方版(8篇)
文明礼仪诗歌20首_诗词
2020公务员面试模拟试题(4)(DOC 3页)
创新科技园项目可行性研究报告申请报告
《坐井观天》
北师大版二年级语文下册第四单元测试题及答案
中考前四天日记
双减政策下作业管理办法9月某第一小学供阅读
工程项目管理年终个人工作总结范文(2篇).doc
轧机试车方案
2023-05-27 2页
2023-04-06 7页
2023-08-24 9页
2023-11-26 5页
2023-08-11 25页
2023-11-25 12页
2023-05-06 4页
2024-01-30 3页
2023-08-09 23页
2023-08-24 89页