下面图老师小编跟大家分享如何接受消息中断正在处理的过程,一起来学习下过程究竟如何进行吧!喜欢就赶紧收藏起来哦~
【 tulaoshi.com - 编程语言 】
  var Interrupt:boolean;
  
  procedure TForm1.Button5Click(Sender: TObject);
  begin
    memo1.Lines.Add('Button5Click OK');
    Interrupt:=true;
  end;
  procedure TForm1.Button6Click(Sender: TObject);
  var i,j,n:integer;
  begin
    Interrupt:=false;
    for i:=0 to 10000 do
    for j:=0 to 10000 do
    begin
      inc(n);
      Application.ProcessMessages;
      if Interrupt then
      begin
        memo1.Lines.Add('Interrupt OK');
        exit;
      end;
    end;
    memo1.Lines.Add('Button6Click OK');
  end;
  
来源:http://www.tulaoshi.com/n/20160219/1604010.html
看过《如何接受消息中断正在处理的过程》的人还看了以下文章 更多>>