メインフォームを使用せずにスレッドからオブジェクトに直接メッセージを送信

Question

スレッドを大量に使用するサードパーティライブラリを使用しています。

スレッドからメインスレッドに返信するメッセージを使用し始めました。すべて動作していますが、SendMessageを使用すると、以下のように記述するのが面倒です。メインフォームがすべてのメッセージを送出しなければならないためです。メインフォームに依存せずにフレームまたはオブジェクトに直接メッセージを送信する方法はありますか？プログラム起動時に

：

MyMessageNumber1 := RegisterWindowMessage('MyUniqueID1'); 
MyMessageNumber2 := RegisterWindowMessage('MyUniqueID2'); 

任意のデータなしでメッセージを送信し、私が行います。要するに

procedure WndProc(var Message: TMessage); override; 
if (Message.Msg = MyMessageNumber1) 
    ... call a frame or other object's method that handles this particular message 
else if (Message.Msg = MyMessageNumber2) then 
    ... call another .... 
else 
    inherited; 

：

SendMessage(Application.MainForm.Handle, MyMessageNumber1) 

私のメインフォームには、これを持っています上記のWndProcは、私がすべてのメッセージとそれらを誰にディスパッチするかについて、私が好むよりはるかに多くを知る必要があります。

どのようにオブジェクトを受け取ることができる方法でスレッドから直接メッセージを送信できますか？

これらのメッセージにはすべて、関連付けられたデータがありません。 （私たちは、いくつかの他の日それを買ってあげる！）:-)

TIA

Answer 1

他のフォームとフレームにもハンドルがあり、メッセージ処理メソッドを定義してからフォームまたはフレームにメッセージを直接投稿することができます。 （独自のカスタムコントロールを構築している場合は、コントロールする必要があります）

メッセージ処理メソッドの設定の概要については、http://docwiki.embarcadero.com/RADStudio/en/Declaring_a_New_Message-handling_Methodを参照してください。

Answer 2

はいすることができます。 AllocateHWNDを使用して、任意のオブジェクトにウィンドウハンドルを割り当てることができます。このハンドルは、にメッセージを送信するために使用できます。

しかし、問題はSendMessageにある可能性があります。 SendMessageの代わりにPostMessageを使用すると、呼び出しはただちに戻ります。 PostMessageはメッセージの処理を待機しません。したがって、メッセージの結果が不要で、スレッドデータへの参照を送信する必要がない場合は、PostMessageを使用できます。