ab.com コミュニティ

　メインウインドウに二つのボタンを貼り付け、
一つをクリックすると「メッセージボックス(モーダル・ダイアログ)」、
もう一つをクリックすると「モードレス・ダイアログ」を開くような簡単な
プログラムを書きます。


Sub MainWnd_CommandButton1_Click()
 MessageBox(hMainWnd,"Message","MessageBox",MB_OK)
End Sub

Sub MainWnd_CommandButton2_Click()
  hModelessDialog=CreateDialog(0,"ModelessDialog")
  ShowWindow(hModelessDialog,SW_SHOW)
End Sub

　ここで、メッセージボックスを表示させてから、
デスクトップの他の場所などをクリックして一度全体を非アクティブにして、
もう一度このメッセージボックスをアクティブにしたい時、
「親であるメインウインドウをクリックしても」親子関係にあるメッセージ
ボックスをアクティブにすることが出来ます。
　ただしこの同様の動作を、その前にモードレスダイアログを表示させてから
行おうとすると、うまく行きません。(メッセージボックスを再びアクティブにするには
その小さなメッセージボックスウインドウ自体をクリックしなければならなくなります。)
　
　モードレスダイアログが存在する場合でも、上に書いたような親子関係が生きた
アクティブ動作をさせるにはどうすれば良いでしょうか？

(AB4.24/WinMe)

とりあえずCreateDialogの最初の引数にhMainWndを指定してはどうでしょうか。

　イグトランスさん、レスありがとうございます。

とりあえずCreateDialogの最初の引数にhMainWndを指定しては
どうでしょうか。

　教えて頂いた通り、CreateDialogの最初の引数にhMainWndを
指定すると一度非アクティブにしてから、MainWndをクリックすると
メッセージボックスをアクティブにすることが出来ました。
　ただしCreateDialogで親をhMainWndにしたくない場合など
(このモードレスウインドウをMainWndの子にしてしまうと常にMainWndより
前面に来てしまう。それを避けたい時など)には、ここは「0」にしておきたい
と思います。
　
　CreateDialogの最初の引数を「0」のままで、というのが
実現できればいいのですが、良い方法はあるでしょうか？

　(もともとこの小さなメッセージボックスはメインウインドウと一つのモードレス
ウインドウ(常に画面上に表示されている)からなるアプリケーションプログラムの
「エラーメッセージ」表示のために作ろうとしました。
出来れば、メッセージボックスが開いた状態で一度アプリケーション全体が
非アクティブなった後では、メインウインドウをクリックしても、あるいはモードレスウインドウをクリックしても(つまりアプリに属する全てのウインドウをクリックしても)、
このメッセージウインドウをアクティブにするように出来たら
とは思っているのですが。これについてももし良い方法があれば
教えて下さい。)

jacobyさんの希望するものかどうかわかりませんが、CreateDialogの第1引数にGetDesktopWindow()を指定してはどうでしょう？

GetDesktopWindow()はデスクトップのウィンドウハンドルを返すものなんですが・・・

上手くいかなかったらすいません。

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

CreateDialogの第1引数にGetDesktopWindow()を指定してはどうでしょう？

　こちらでもこの設定で実行してみましたが、どうも状態は変わらないようです。
(こちらのやり方が間違っているかもしれません。いずれにしてもレスを寄せて
頂いて、感謝です。)

　それで、以後もあれこれ考えてはみるのですが、

　まずメッセージボックスをモーダルダイアログに変えてハンドルを取得出来る
ようにして、
　メインウインドウ、及びモードレスウインドウのアクティベイト・イベントで
"もしモーダルダイアログ(※前述のメッセージボックスの代わり)が存在するなら
それにフォーカスを移す"という内容のプログラムを書いてみました。

(ここにソースが表示されます) [ここをクリックすると内容が表示されます]

コード: 全て選択


'
'●アクティベイト・イベント
' (※同様の記述をModelesDialogのアクティベイト・イベントにも書く)
'
Sub MainWnd_Activate(state As Integer, minimized As Integer)
  If state<>WA_INACTIVE Then
        IsModalDialog()
  End If
End Sub

'
'●モーダルダイアログが存在するか調べ、
'  もしあるなら、それにフォーカスを移す。
' (SetForegroundWindowで最前面に持ってくる。)
'
Function IsModalDialog() As Byte

 IsModalDialog=FALSE
 Print

 If IsWindow(hModalDialog)<>FALSE Then
      Print "モーダルダイアログは存在する。" 
      IsModalDialog=TRUE
  Else
      Print "モーダルダイアログは存在しない。"
 End If

 If IsWindow(hModelessDialog)<>FALSE Then
      Print "モードレスダイアログは存在する。" 
  Else
      Print "モードレスダイアログは存在しない。"
 End If

 If IsModalDialog=TRUE Then
   Print "----> モーダルにフォーカスを移します。"
   SetForegroundWindow(hModalDialog)
 End If

End Function

　ただしこの方法でも、モードレスが表示された後での状態は相変わらず
なので、(モードレス、モーダル共に表示されていて、一旦アプリ全体が
非アクティブになってからのメインウインドウへのクリックには反応無し)
試しにモーダルとメインウインドウの親子関係を解消させて実行してみます。

　するとメイン、モードレスへのクリックでフォーカスをモーダルに移せることは
移せるのですが、一度はそれぞれのウインドウがアクティブになってから
移るような感じなので一瞬パパッとちらつく感じがあり、更にそれぞれフォーカスを
投げた側が非アクティブなウインドウとしての表示にならないまま(タイトルバーが
青いまま)なので、まるで「アクティブウインドウが二つ存在している」様でかなり
不気味です。

　結局、この方法はうまく行かないのではと思いつつ、引き続き考えています。

　タスクバーに表示されているメインウインドウへのクリックでは、
モードレスウインドウがあろうが無かろうが
うまくモーダル(※メッセージボックス)がアクティブになってくれるのですが。。。。

　上の記述、自分の用語の使い方に間違いがあるので修正します。

　これまで親ウインドウ、子ウインドウと書いていましたが
僕のこのプログラムの場合では正しくはそれぞれ、

　「オーナーウインドウ」
　「オーナー付きウインドウ」

の誤りでした。

　子ウインドウというのは親ウインドウのクライアント領域内にのみ
表示されるウインドウということで、これはプログラムの内容と違いますね。
　以後気をつけて、そう書きたいと思います。
　失礼しました。

　(↑のフォーカスを投げるプログラムではなく、一番最初の何も小細工してない
ものを使った時ですが)
　モードレス、モーダル(※メッセージボックス)が表示されている時の
一旦全体非アクティブからメインウインドウをクリックしたとき、
例の「ポーン」という音(モーダルに返答しなさいよという感じでしょうか？)は
聞こえるんです。
　だから、メインウインドウの領域も確かに認識していることは確かだと
思うのですが。

ab.com コミュニティ

ダイアログボックスのアクティブ動作について

ダイアログボックスのアクティブ動作について

レスありがとうございます。

レスありがとうございます。

用語の間違いを。

音。