综合

img LuckyJan

如何接受消息,中断正在处理的过程

发表于2004/10/15 15:07:00  1395人阅读

分类: Delphi基础

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;

阅读全文
0 0

相关文章推荐

img
取 消
img