Delphi XE里面的线程匿名方法如何使用

问答知识库用户 |浏览217次
收藏|2014/05/17 22:00
如题

满意回答

2014/05/17 22:00

参考:
var
  Form6: TForm6;
  myThread: TThread;
implementation
{$R *.dfm}
procedure TForm6.Button1Click(Sender: TObject);
begin
  myThread.Start;
end;
procedure TForm6.FormCreate(Sender: TObject);
begin
  myThread := TThread.CreateAnonymousThread(
    procedure
    var
      i: Integer;
    begin
      for i := 0 to 500000 do
      begin
        Canvas.Lock;
        Canvas.TextOut(10, 10, IntToStr(i));
        Canvas.Unlock;
      end;
    end
  );
end;

热心网友

其他回答(0)
0人关注该问题
待解决问题



+1
 加载中...