ab.com コミュニティ

[quote]
ABのIDEのRADでコーディングした場合はダイアログボックス(この場合：モーダル)作成はCallback.wbpを見ればわかりますが、WM_INITDIALOGメッセージをキャッチした時に行われます。なのでおそらくWM_CTLCOLORDLGイベントは発生しないと思います。
[/quote]
そうなんですか。WM_CTLCOLORDLGが発生しないなら、いくら待っていても駄目ですね。
ただダイアログの色の変更処理はWM_CTLCOLORDLGイベントの「戻り値」に設定する色のブラシハンドルをセットするというような仕様になっていたと思うので、これをINITDIALOGイベントでどのように実装出来るのかはまだ自分では確認出来ていません。
[url]http://www.serpress.co.jp/cpp/no013.html[/url]
いずれにしてもこの方法そのまま、というのは少し難しそうな感じがしますね。(PAINTイベントで自力で描画するというのも手かも知れませんが。)

たかせさん、返信有難うございました。また何かありましたらよろしくお願いします。

WM_CTLCOLORDLGメッセージではなくWM_INITDIALOGメッセージでキャッチするかもしくはCREATEイベント内でダイアログの色の変更機能を実装してみてください。

ABのIDEのRADでコーディングした場合はダイアログボックス(この場合：モーダル)作成はCallback.wbpを見ればわかりますが、WM_INITDIALOGメッセージをキャッチした時に行われます。なのでおそらくWM_CTLCOLORDLGイベントは発生しないと思います。
ご確認よろしくお願いします。

'-----------------------------------------------------------------------------
'  イベント プロシージャ
'-----------------------------------------------------------------------------
' このファイルには、ウィンドウ [MainWnd] に関するイベントをコーディングします。
' ウィンドウ ハンドル: hMainWnd

' TODO: この位置にグローバルな変数、構造体、定数、関数を定義します。

#prompt 'プロンプトウインドウの表示

'-----------------------------------------------------------------------------
' ウィンドウメッセージを処理するためのコールバック関数

Function MainWndProc(hWnd As HWND, dwMsg As DWord, wParam As WPARAM, lParam As LPARAM) As DWord
	' TODO: この位置にウィンドウメッセージを処理するためのコードを記述します。

	' イベントプロシージャの呼び出しを行います。
	MainWndProc=EventCall_MainWnd(hWnd,dwMsg,wParam,lParam)
End Function


'-----------------------------------------------------------------------------
' ここから下は、イベントプロシージャを記述するための領域になります。

Sub MainWnd_Destroy()
	TEST_DestroyObjects()
	PostQuitMessage(0)
End Sub

'ボタンクリックでダイアログを表示
Sub MainWnd_CommandButton1_Click()
 DialogBox(hMainWnd, "ModalWnd")
End Sub

'-----------------------------------------------------------------------------
'  イベント プロシージャ
'-----------------------------------------------------------------------------
' このファイルには、ウィンドウ [ModalWnd] に関するイベントをコーディングします。
' ウィンドウ ハンドル: hModalWnd

' TODO: この位置にグローバルな変数、構造体、定数、関数を定義します。


'-----------------------------------------------------------------------------
' ウィンドウメッセージを処理するためのコールバック関数

Function ModalWndProc(hWnd As HWND, dwMsg As DWord, wParam As WPARAM, lParam As LPARAM) As DWord
	' TODO: この位置にウィンドウメッセージを処理するためのコードを記述します。
 Select Case dwMsg
   Case WM_CTLCOLORDLG
     Print "WM_CTLCOLORDLG"

   Case WM_CTLCOLORSTATIC
     Print "WM_CTLCOLORSTATIC"

 End Select

	' イベントプロシージャの呼び出しを行います。
	ModalWndProc=EventCall_ModalWnd(hWnd,dwMsg,wParam,lParam)
End Function

'-----------------------------------------------------------------------------
' ここから下は、イベントプロシージャを記述するための領域になります。

ダイアログのクライアント領域の色を変更したいのですが
どうもWM_CTLCOLORDLGメッセージが捕まえられません。

メインのウインドウにボタンが一つあって、
そのボタンを押すとダイアログボックス(モーダル)が
立ち上がるような簡単なプロジェクトを書いてみてテストしてみました。

以下プロジェクト・コード全文です。(ウインドウは「MainWnd」と「ModalWnd」のみ)
[hide=ソース・MainWnd.sbp]
[code]
'-----------------------------------------------------------------------------
' イベント プロシージャ
'-----------------------------------------------------------------------------
' このファイルには、ウィンドウ [MainWnd] に関するイベントをコーディングします。
' ウィンドウ ハンドル: hMainWnd

' TODO: この位置にグローバルな変数、構造体、定数、関数を定義します。

#prompt 'プロンプトウインドウの表示

'-----------------------------------------------------------------------------
' ウィンドウメッセージを処理するためのコールバック関数

Function MainWndProc(hWnd As HWND, dwMsg As DWord, wParam As WPARAM, lParam As LPARAM) As DWord
' TODO: この位置にウィンドウメッセージを処理するためのコードを記述します。

' イベントプロシージャの呼び出しを行います。
MainWndProc=EventCall_MainWnd(hWnd,dwMsg,wParam,lParam)
End Function


'-----------------------------------------------------------------------------
' ここから下は、イベントプロシージャを記述するための領域になります。

Sub MainWnd_Destroy()
TEST_DestroyObjects()
PostQuitMessage(0)
End Sub

'ボタンクリックでダイアログを表示
Sub MainWnd_CommandButton1_Click()
DialogBox(hMainWnd, "ModalWnd")
End Sub
[/code]
[/hide]
[hide=ソース・ModalWnd.sbp]
[code]
'-----------------------------------------------------------------------------
' イベント プロシージャ
'-----------------------------------------------------------------------------
' このファイルには、ウィンドウ [ModalWnd] に関するイベントをコーディングします。
' ウィンドウ ハンドル: hModalWnd

' TODO: この位置にグローバルな変数、構造体、定数、関数を定義します。


'-----------------------------------------------------------------------------
' ウィンドウメッセージを処理するためのコールバック関数

Function ModalWndProc(hWnd As HWND, dwMsg As DWord, wParam As WPARAM, lParam As LPARAM) As DWord
' TODO: この位置にウィンドウメッセージを処理するためのコードを記述します。
Select Case dwMsg
Case WM_CTLCOLORDLG
Print "WM_CTLCOLORDLG"

Case WM_CTLCOLORSTATIC
Print "WM_CTLCOLORSTATIC"

End Select

' イベントプロシージャの呼び出しを行います。
ModalWndProc=EventCall_ModalWnd(hWnd,dwMsg,wParam,lParam)
End Function

'-----------------------------------------------------------------------------
' ここから下は、イベントプロシージャを記述するための領域になります。
[/code]
[/hide]

　試しにモーダルダイアログ上にスタティックテキストを一枚貼り付け、同様のメッセージである
"WM_CTLCOLORSTATIC"が飛んでくるかテストしてみたのですが、これについては取得出来ました。
ところがWM_CTLCOLORDLGについてはそもそも飛んで来てないのか「Print "WM_CTLCOLORDLG"」が実行されないようです。

　WM_CTLCOLORDLGはABのフォルダ内\Include\api-msg.sbpにて定義されています。
使えるハズだとも思うのですが。

　お知りの方がおられましたら教えてください。
(AB ver4.24 /WinMe)