delphi XE 學習筆記二：TThread.CreateAnonymousThread

TThread.CreateAnonymousThread(方法名或者匿名方法).Start();

procedure TForm1.Button1Click(Sender:TOBject);

begin

  TThread.CreateAnonymousThread(

    procedure()

    begin

      //do somthing

    end

  ).start();

end;

 

 

 

转载于:https://www.cnblogs.com/KevinHo/archive/2013/01/02/2841958.html