{自定义方法: 在窗体上绘制...} procedure MyMethod; var i: Integer; begin for i := 0 to 500000 do begin Form1.Canvas.Lock; Form1.Canvas.TextOut(10, 10, IntToStr(i)); Form1.Canvas.Unlock; end; end; {调用上面的自定义方法} procedure TForm1.Button1Click(Sender: TObject); begin MyMethod; end;
多线程操作ui
最新推荐文章于 2024-07-01 15:35:13 发布