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 检测链接和获取链接内容

Delphi版的隐藏模块单元 hidemoduleunit.pas

Delphi adoconnection1 事务

Delphi system 中的数学函数

Delphi idhttp的用法

Delphi 如何获取桌面图标方法

Delphi 双击listbox1内容，数据插入到memo1/synedit1鼠标指定位置

Delphi 自带rest调试工具 restdebugger 用法

Delphi winapi: setvolumelabel - 设置磁盘卷标

Delphi保存网页中的图片

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

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