2011年5月18日 星期三

现在， Delphi 的多线程已经非常易用了!

万一| 万一的 Delphi 博客 |13:27:00

先看一个非多线程的例子, 代码执行时不能进行其它操作(譬如拖动窗体):{自定义方法: 在窗体上绘制...} procedure MyMethod; var i: Integer; begin for i := 0 to 500000 do begin Form1.Canvas.Lock; Form1.Canvas.TextOut(10, 10, IntToStr(i)); ...