Delphi 官方 ProcessMessages 用法代码例子

本文整理自网络，侵删。

 
const magicnumber = 500;
procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Caption := 'Ignore Messages';
  Button2.Caption := 'Process Messages';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  I, J: Integer;
  X, Y: Word;
begin
  I := 0;
  J := 0;
  Canvas.TextOut(10, 10, 'The Button1Click handler has started');
  Application.ProcessMessages; // Doing this, you get the message out.
  while I < magicnumber do
  begin
    Randomize;
    while J < magicnumber do
    begin
      Sleep(10);
      Y := Random(J);
      Inc(J);
    end;
    X := Random(I);
    Inc(I);
  end;
  Canvas.TextOut(10, 10, 'The Button1Click handler is finished   ');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  I, J: Integer;
  X, Y: Word;
begin
  I := 0;
  J := 0;
  Canvas.TextOut(10, 10, 'The Button2Click handler has started');
  while I < magicnumber do
  begin
    Randomize;
    while J < magicnumber do
    begin
      Y := Random(J);
      Inc(J);
      Sleep(10);
      Application.ProcessMessages;
    end;
    X := Random(I);
    Inc(I);
  end;
  Canvas.TextOut(10, 10, 'The Button2Click handler is finished   ');
end;
 

相关阅读 >>

Delphi 2009 之 tstringbuilder 类[2]: append 与 appendformat

Delphi 怎么将一个流转换成字符串？或者将字符串转出一个流

Delphi 中tresourcestream流使用

Delphi 游戏是如何检测到有od等调试工具的

Delphi x 的 y 次方

Delphi image 直接加载资源文件

Delphi调用javascript解析json

Delphi 生成日志记录单元

Delphi 把窗体客户区图像保存到文件或剪切板

Delphi如何在一个窗体中嵌入另一个窗体

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 官方 ProcessMessages 用法代码例子