TApplication::ProcessMessages

目次に戻る

ProcessMessageはInprise社のBorland C++Builder の標準ライブラリＶＣＬ（Visual Component Library)にある関数で、Windowsのメッセージキューにたまったメッセージを 処理させる関数です。
　
はっきり言って小手先殺法に近いのですが、数値計算処理など、時間のかかる処理 をWindowsのGUI上で手軽に行う際に使用します。
//時間のかかる処理の例
Graphics::TBitmap *bit = new Graphics::TBitmap();
bit->Width = 640;
bit->Height = 480;

for( int y=0 ; y<480 ; y++ ){
    for( int x=0 ; x<640 ; x++ ){
        bit->Canvas->Pixels[x][y] =
            (int)(sqrt( x*x + y*y )) % 256 |
            ((int)(sqrt( (640-x)*(640-x) + y*y )) % 256) << 8 |
            ((int)(sqrt( (320-x)*(320-x) + y*y )) % 256) << 16;
    }
}

PaintBox1->Canvas->Draw( 0 , 0 , bit );

delete bit;

上記のプログラムを実行すると、計算している間ウィンドウの移動などの処理がいっさい できなくなります。しかし、ループの中にProcessMessagesを入れる事でこの問題は解消 されます。
//時間のかかる処理の例
Graphics::TBitmap *bit = new Graphics::TBitmap();
bit->Width = 640;
bit->Height = 480;

for( int y=0 ; y<480 ; y++ ){
    for( int x=0 ; x<640 ; x++ ){
        Application->ProcessMessages(); // <- 追加
        bit->Canvas->Pixels[x][y] =
            (int)(sqrt( x*x + y*y )) % 256 |
            ((int)(sqrt( (640-x)*(640-x) + y*y )) % 256) << 8 |
            ((int)(sqrt( (320-x)*(320-x) + y*y )) % 256) << 16;
    }
}

PaintBox1->Canvas->Draw( 0 , 0 , bit );

delete bit;

ただ、これはあくまで小手先の技で、もし並列になにか処理をしようとしたらスレッドかタイ マー割り込みを利用した方が、プログラムの可読性が高くなり、後で機能を追加する場合 等も（比較的）簡単に行えるようになります。

目次に戻る