ab.com コミュニティ

[quote]
　とりあえず、QueryCloseイベントはウインドウが閉じられようとして破棄される前に呼び出されますので、その中にEndDialogを書くことは絶対不可だと思います。
[/quote]
　DialogBox()とEndDialog()を必ず対にさせなければならないのかと
EndDialog()の置き場所を探して、QueryCloseイベントに置いたのですが
(「閉じる」ボタンを押した時にも通る所ということで)、
「閉じる」ボタンを押した時など、既に破棄されるコースに乗っている場合は
その必要は無いんですね。

それから、元々の疑問についても、
[quote]
とりあえず、ウインドウオーナーを有効にするコードは入っていますが、アクティブにするコードは入っていないようです。多分これが原因だと思います。
[/quote]
EndDialogの中身も見せて頂いて、納得しました。

　DestroyイベントにSetActiveWindow(hMainWnd)を仕込みたいと思います。

　重ねてのレス、EndDialog()の中身の解説、ありがとうございました。
またよろしくお願いします。

Sub EndDialog(hWnd As HWND, lResult As Long)
	EnableWindow(GetWindow(hWnd,GW_OWNER),1)
	DestroyWindow(hWnd)
	PostMessage(0,WM_QUIT,lResult,0)
End Sub

QueryCloseイベントの使い方の関係上、その中にEndDialogを書くのはまずいと思います。
Callback.sbpをテキストエディタで開き、その中にEndDialogがあります。
[code]
Sub EndDialog(hWnd As HWND, lResult As Long)
EnableWindow(GetWindow(hWnd,GW_OWNER),1)
DestroyWindow(hWnd)
PostMessage(0,WM_QUIT,lResult,0)
End Sub[/code]
　とりあえず、ウインドウオーナーを有効にするコードは入っていますが、アクティブにするコードは入っていないようです。多分これが原因だと思います。ですので、ダイアログのDestroyイベントの中に昨日書いたコードを仕込んで置いてください。また、DestroyWindow関数はウインドウを破棄する関数です。これを二度実行すると、何が起こるか確かにわかりません...。
　とりあえず、QueryCloseイベントはウインドウが閉じられようとして破棄される前に呼び出されますので、その中にEndDialogを書くことは[b]絶対不可[/b]だと思います。

'
' ●Dialog1 閉じる
'
Sub Dialog1_QueryClose(ByRef cancel As Integer)
' ↓ここにEndDialogを書くと、メインのウインドウまで消えてしまい
'        プログラムが終了してしまう
EndDialog(hDialog1,0)

End Sub

'
' ●Dialog1 閉じる
'
Sub Dialog1_QueryClose(ByRef cancel As Integer)
' ↓ここにEndDialogを書くと、メインのウインドウまで消えてしまい
'        プログラムが終了してしまう
EndDialog(hDialog1,0)
cancel=TRUE

End Sub

　yu0627さん、レスありがとうございます。

教えていただいた、
「SetActiveWindow(hMainWnd)」
で、しっかりと直りました。
　ありがとうございました。


　ただ、正直なとこまだ少し引っかかっているんです。

　例えば、上のプログラムのモーダルダイアログから
メッセージボックスを「出さず」にそのまま閉じた時は
SetActiveWindow(hMainWnd)が無くても
メインウインドウはアクティブに戻ってきます。
つまりこのときは、既にアクティブなメインを
「もう一度アクティブにする」感じになるのでは
ないかと思います。

　もちろん、だからといって動作そのものに影響はない
ので別にどうだとも思うのですが、元々のとこの疑問、
「なぜメインのウインドウからダイアログを開き、
更にそこからまたダイアログ(ここではメッセージボックス)を
一度開くと、元あったはずの親子の関係が
途切れてしまうように見える動作が起こるのか」ということが
分からないままなんです。

　モーダルダイアログを閉じる時、
[code]
'
' ●Dialog1 閉じる
'
Sub Dialog1_QueryClose(ByRef cancel As Integer)
' ↓ここにEndDialogを書くと、メインのウインドウまで消えてしまい
' プログラムが終了してしまう
EndDialog(hDialog1,0)

End Sub
[/code]
このように書くとメインのウインドウまで消えてしまうのも
何故なのか分からないのですが、もしかして、EndDialogプロシージャの中でも
DestroyWindow命令があり、更にこのDialog1_QueryCloseサブの
実行後にもDestroyWindow命令が控えていて、それで二重で消えている
のかと思い、とりあえず試しに、
[code]
'
' ●Dialog1 閉じる
'
Sub Dialog1_QueryClose(ByRef cancel As Integer)
' ↓ここにEndDialogを書くと、メインのウインドウまで消えてしまい
' プログラムが終了してしまう
EndDialog(hDialog1,0)
cancel=TRUE

End Sub
[/code]
と「cancel=TRUE」と入れてみました。
そうすると今度はメインのウインドウまで消えることはなくなったの
ですが、やはりメインがアクティブにはなってくれません。

　「DialogBox()」と「EndDialog()」は必ず一対に書かなければ
ならないのか、それとも必ずしもそうではないのか、ということも
そうなのですが、
　ウインドウからダイアログを開き、更にまたそこからダイアログを開き、
更にまた、ということはウインドウプログラミングでは頻繁に
あることだと思うので、このあたり出来ればハッキリと分かりたい
と思っています。

SetActiveWindow(hMainWnd)

　モーダルダイアログのDestroyイベントの中に以下のコードを仕込んでください。[code]SetActiveWindow(hMainWnd)[/code]
　多分、僕の経験上これで直ると思いますが。

'---------- メイン・ウインドウ -----------
'
' ●MainWnd クリエイト
'
Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
  '↓このメイン・ウインドウのボタンは何故かフォーカスを
  '  当てて、「標準のボタン」にチェックを入れてもEnterで押せない。何故なんだろうか?
    SetFocus(GetDlgItem(hMainWnd,CommandButton1))
End Sub

'
' ●MainWnd [Dialog1]ボタン・クリック
'
Sub MainWnd_CommandButton1_Click()
    DialogBox(hMainWnd,"Dialog1")
End Sub

'
' ●MainWnd [Close]ボタン・クリック
'
Sub MainWnd_CommandButton2_Click()
    SendMessage(hMainWnd,WM_CLOSE,0,0)
End Sub


'----------- ダイアログ1 (モーダル・ダイアログ) -------------
'
' ●Dialog1 クリエイト
'
Sub Dialog1_Create(ByRef CreateStruct As CREATESTRUCT)
    SetFocus(GetDlgItem(hDialog1,CommandButton1))
End Sub

'
' ●Dialog1 OKボタン・クリック
'
Sub Dialog1_CommandButton1_Click()
     MessageBox(hDialog1,"OKが押されました","Message",MB_OK)
End Sub

'
' ●Dialog1 CANCELボタン・クリック
'
Sub Dialog1_CommandButton2_Click()
     SendMessage(hDialog1,WM_CLOSE,0,0)
End Sub

'
' ●Dialog1 閉じる
'
Sub Dialog1_QueryClose(ByRef cancel As Integer)
' ↓ここにEndDialogを書くと、メインのウインドウまで消えてしまい
'        プログラムが終了してしまうのでとりあえずREM文にしておく。
' EndDialog(hDialog1,0)
End Sub

　メインのウインドウ上に貼り付けたボタンをクリックすると
そこから、(このメインウインドウを親とする)モーダルダイアログを開き、
そのモーダルダイアログ上のボタンをクリックすると
(このモーダルダイアログを親とする)メッセージボックスが表示されるという
プログラムを書いたのですが、ウインドウの親子関係でうまく分からないこと
があります。

メインのウインドウ
　　　　　　↓
　　モーダルダイアログ
　　　　　　　↓
　　　メッセージボックス


　メインウインドウからモーダルダイアログを出した段階で
やっぱりやめた、と、そのモーダルダイアログの閉じるボタンを
押して消した場合、ダイアログの親であるメインウインドウが再び
アクティブになります。ここまでいいのですが、
　一旦、モーダルダイアログから更にメッセージボックスを
表示させると、その後(メッセージボックスに応答してそれを消してから)、
モーダルダイアログを閉じた時、
メインウインドウは自動的にアクティブになりません。

メインのウインドウ
　　　　　　×
　　　　　　↑
　　モーダルダイアログ
　　　　　　　↑
　　　メッセージボックス

モーダルダイアログを閉じるとき、初めはそのダイアログのクローズ・イベントである
Dialog1_QueryClose()のなかで「EndDialog(hDialog1)」と書いていたのですか
これを書くと、モーダルダイアログが消えてからメインのウインドウまで
たて続けに消えてしまい、プログラム自体が終了してしまいます。
それでEndDialogは書かずにおいてみたのですが、今度は
上に書いたように、メインウインドウがアクティブにならなくなる。

　この辺の親子のつながりがよく分からず、悩んでいます。

メインのウインドウ
　　　　　　↑
　　モーダルダイアログ
　　　　　　　　↑
　　　メッセージボックス

　このように、それぞれを閉じた時、元を辿って親を順にアクティブにするには
どうすれば良いのでしょうか?


---------------------------------------------
下にプログラムを。
AB4.24で実行しました。

　まずRADでメインのウインドウとダイアログ1(モーダルダイアログ)を
作り、

　メインウインドウに[Dialog1]、[Close]という二つのボタンを
貼り付ける。
([Dialog1]をクリックでダイアログ1を開く。[Close]でメインウインドウを
閉じる。)

　それからDialog1というモーダル・ダイアログを作り、
[OK]、[CANCEL]という二つのボタンを貼り付ける。
([OK]でメッセージボックスを表示し、[CANCEL]でダイアログを閉じる。)

[hide=(ここにソースが表示されます)]
[code]
'---------- メイン・ウインドウ -----------
'
' ●MainWnd クリエイト
'
Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
'↓このメイン・ウインドウのボタンは何故かフォーカスを
' 当てて、「標準のボタン」にチェックを入れてもEnterで押せない。何故なんだろうか?
SetFocus(GetDlgItem(hMainWnd,CommandButton1))
End Sub

'
' ●MainWnd [Dialog1]ボタン・クリック
'
Sub MainWnd_CommandButton1_Click()
DialogBox(hMainWnd,"Dialog1")
End Sub

'
' ●MainWnd [Close]ボタン・クリック
'
Sub MainWnd_CommandButton2_Click()
SendMessage(hMainWnd,WM_CLOSE,0,0)
End Sub


'----------- ダイアログ1 (モーダル・ダイアログ) -------------
'
' ●Dialog1 クリエイト
'
Sub Dialog1_Create(ByRef CreateStruct As CREATESTRUCT)
SetFocus(GetDlgItem(hDialog1,CommandButton1))
End Sub

'
' ●Dialog1 OKボタン・クリック
'
Sub Dialog1_CommandButton1_Click()
MessageBox(hDialog1,"OKが押されました","Message",MB_OK)
End Sub

'
' ●Dialog1 CANCELボタン・クリック
'
Sub Dialog1_CommandButton2_Click()
SendMessage(hDialog1,WM_CLOSE,0,0)
End Sub

'
' ●Dialog1 閉じる
'
Sub Dialog1_QueryClose(ByRef cancel As Integer)
' ↓ここにEndDialogを書くと、メインのウインドウまで消えてしまい
' プログラムが終了してしまうのでとりあえずREM文にしておく。
' EndDialog(hDialog1,0)
End Sub
[/code]
[/hide]