下面图老师小编跟大家分享如何接受消息中断正在处理的过程,一起来学习下过程究竟如何进行吧!喜欢就赶紧收藏起来哦~
【 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
看过《如何接受消息中断正在处理的过程》的人还看了以下文章 更多>>