掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
[FMX]ユーザー定義のWindowsメッセージを受信するには？ (ID：48151)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> VCL（Windows）とは勝手が違う様で、以下のコードでは受信できません。 VCLでは動いているコードという解釈で良いですかね？ 試しに独自ウインドウハンドルを介して メッセージをやりとりした場合はどうですかね？ // 宣言部 private { Private 宣言 } FHandle: HWND; // ウインドウハンドル procedure WndProc(var Msg: TMessage); implementation constructor TForm1.Create(); begin FHandle := Classes.AllocateHWnd(WndProc); // 独自ウインドウハンドルを生成 end; destructor TForm1.Destroy; begin Classes.DeallocateHWND(FHandle); // 独自ウインドウハンドルを破棄 end; procedure TForm1.WndProc(var Msg: TMessage); begin if Msg.Msg = WM_HOGEHOGE then begin // 自作ウインドウメッセージ通知の場合 exit; end; if Msg.Msg <> WM_HOGEHOGE then begin // 自作ウインドウメッセージ通知では無い場合は処理を返す Msg.Result:=DefWindowProc(FHandle,Msg.Msg, Msg.wParam,Msg.lParam); exit; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.