Delphiカスタムメッセージハンドラ

Question

ユーザがdbgridをダブルクリックすると、非モーダルフォームが表示されます。

そのフォームを閉じると、グリッドを更新したいと思います。

それを達成するために、私は次のことを試してみました：

1 - カスタムメッセージ定数を定義します。

const 
    WM_REFRESH_MSG = WM_USER + 1; //defined in a globally available unit 

2 - 私の非モーダルフォームのOnCloseのイベントでは、私はこれを持っています：

procedure TMyNonModalForm.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
    PostMessage(Self.Handle,WM_REFRESH_MSG,0,0); 
end; 

3 - のDBGridを保持しているフォームのプライベート宣言では、私はこれを持っている：

procedure OnRefreshRequest(var Msg: TMessage); message WM_REFRESH_MSG; 

... 

procedure TMyFormWithADBGrid.OnRefreshRequest(var Msg: TMessage); 
begin 
    RefreshGrid; 
end; 

これらの処理を行った後、PostMessageは正常に起動しますが、OnRefreshRequestプロシージャは決して実行されません。私は間違って何をしていますか？

Answer 1

であるべき自己が離れて行くされている間、あなたはSelf.Handleにメッセージを投稿しています。おそらく、別のハンドル（モードレスを起動したウィンドウ）にポストすることを意味していました。あなたがそれを作成するとき、あなたのモードレスウィンドウにそのハンドルへのアクセスを与え、代わりにメッセージを掲示してください。

Answer 2

送信しようとしているメッセージと一致するように、宣言の最後を変更してみてください。

procedure OnRefreshRequest(var Msg: TMessage); message WM_CEA_REFRESH; 

は別に、他の解答のメッセージ名からこの

procedure OnRefreshRequest(var Msg: TMessage); message WM_REFRESH_MSG; 

Answer 3

投稿メッセージは、あなたがリストアップしたself.handleではなく、別のウィンドウハンドルに送信する必要があります。これを行う1つの方法は、非モーダルフォームを表示する直前に、非モーダルフォームに新しいプロパティを作成し、それを他のフォームのハンドルに割り当てることです。

それ以外は、WM_REFRESH_MSGを正しく実装すると（CheGueVerraは正しい）、うまく動作するはずです。

Answer 4

TWinControlから直接降順にカスタムコントロールを作成する場合を除き、WM_USERは自分のメッセージの基になる正しい定数ではありません。代わりにWM_APPを使用してください。

また、WM_の代わりにUM_をユーザーメッセージに使用するのは、そのプレフィックスがWindowsヘッダーファイル用に予約されているためです。

Answer 5

「ケビンは何をするのですか」の例をアップロードしました。 Embarcaderoのニュースグループフォーラムのembarcadero.public.attachmentsにアクセスしてください。

基本的には、非モーダルフォームが閉じたときにメインフォーム（または必要なフォーム/オブジェクト）が購読するカスタムイベントです。あなたがフォーラムに取得し、追加のコードを必要とすることができない場合は、Executeメソッド

procedure TfmNonModalForm.Execute(YourListenerMethod: THeyIClosedEvent); 
begin 
    FHeyIClosedEvent := YourListenerMethod; 
    Show(); 
end; 

、メイン（または何でも）形式では...

var 
    NonModalForm :TfmNonModalForm; 
begin 
    NonModalForm := TfmNonModalForm.Create(nil); 
    NonModalForm.Execute(NonModalFormClosingListener); 

、コメントを残して、私は」不足している部分を投稿します。

幸運