Delphi xe线程匿名方法怎么弄呢?

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

满意回答

2014/05/17 22:00

procedure TForm6.Button1Click(Sender: TObject);
var
  StrID: string;
begin
  StrID := '88888';
  TThread.CreateAnonymousThread(
    procedure
    var
      i: Integer;
    begin
      self.show(StrID);
    end
  ).Start;
end;

procedure TForm6.show(ID: string);
begin
  ///////
end;

热心网友

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



+1
 加载中...