ab.com コミュニティ

メッセージボックスについて。

　下のような、スレッドから単純にメッセージボックスを
表示するだけのプログラムがあるとします。
(スレッドそのものは質問と関係ないかもしれません)


'
'●スレッド1
'
Function MainOperation(dwDummy As DWord)
 
 MessageBox(hMainWnd,"MeesageBoxのテストです","Message",MB_OK) 
 
End Function

　これを実行するとメインのウインドウに重なって
小さなメッセージボックスが表示されるのですが
そこで一旦、デスクトップの他の場所をクリックするなどして
メッセージボックスを非アクティブにします。

それから再びこのメッセージボックスをアクティブに
したいとき、よく他のアプリケーションソフトなどでは
わざわざその小さなメッセージボックスそのものを
クリックせずとも、「そのメッセージボックスを所有するウィンドウ」
(ここでは"hMainWnd"のウインドウ)をクリックしても
メッセージボックスをアクティブに出来たりする動作が
見られます。
　ただし、上のソースで実行した場合それは出来ず、
アクティブに戻すには小さなメッセージボックスそのものを
クリックしなければなりません。

　「メッセージボックスを所有するウィンドウをクリックしても
メッセージボックスをアクティブにする」にはどうすれば良いでしょうか。

メッセージボックスをモードレスダイアログボックスで
自作して、思う動作をさせようと下のようにプログラムを
書いてみたのですが、

(プログラムの流れは)
1,モードレスダイアログでメッセージボックスを作成、表示
2,ダイアログボックスが表示されているかどうかのフラグをセット
3,メインウインドウのActivateイベントで、もしダイアログボックスが表示されているなら
強制的にそれをアクティブにする

コード: 全て選択


'
'●メインウインドウ・クリエイト
'
Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
 '↓モードレスダイアログでメッセージボックスを自作
 hModeLess1=CreateDialog(hMainWnd,"ModeLess1") 
 ShowWindow(hModeLess1,SW_SHOW)
 '↓ダイアログボックスが表示されているかどうかのフラグ(TRUE=表示)
 DialogExistingFlag=TRUE
 
End Sub

'
'●メインウインドウ・アクティブ/非アクティブ・イベント
'
Sub MainWnd_Activate(state As Integer, minimized As Integer)
 '↓もしダイアログボックスが表示されているなら強制的にそれをアクティブにする
 If state<>WA_INACTIVE AND DialogExistingFlag=TRUE Then
      SetForegroundWindow(hModeLess1)
 End If
 
End Sub

一応、それらしい動作はしてくれるのですがやっぱりこの方法だと
一瞬メインのウインドウがアクティブになるのでちらつきが起こります。
(メインウインドウのタイトルバーのダブルクリックで最大化などもされてしまいますし)。
このやり方ではメッセージボックス(モーダルダイアログボックス)のようなしっかりした
「モーダル」な動き、を実現するのは難しいのかなと思います。

　他で良い方法があれば是非教えてください。

これはMessageWBox()関数の動作形態フラグであるMB_APPLMODALを指定すればよいのでは？
詳しくはヘルプを見ていただくとして、下記はプログラムでどうでしょう？

コード: 全て選択

#N88BASIC
MessageBox(_PromptSys_hWnd,"MeesageBoxのテストです","Message",MB_OK Or MB_APPLMODAL)

[/code]

> 　これを実行するとメインのウインドウに重なって
> 小さなメッセージボックスが表示されるのですが
> そこで一旦、デスクトップの他の場所をクリックするなどして
> メッセージボックスを非アクティブにします。
>
> それから再びこのメッセージボックスをアクティブに
> したいとき、よく他のアプリケーションソフトなどでは
> わざわざその小さなメッセージボックスそのものを
> クリックせずとも、「そのメッセージボックスを所有するウィンドウ」
> (ここでは"hMainWnd"のウインドウ)をクリックしても
> メッセージボックスをアクティブに出来たりする動作が
> 見られます。
> 　ただし、上のソースで実行した場合それは出来ず、
> アクティブに戻すには小さなメッセージボックスそのものを
> クリックしなければなりません。

当方でも試してみましたけど、MainWndをクリックすれば自動的にメッセージボックスがアクティブになりましたよ。（その際MainWndは非アクティブです。）

試したソース [ここをクリックすると内容が表示されます]

ActiveBasic Ver 4.24で検証。

コード: 全て選択

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

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


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

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()
	If hThread<>0 Then CloseHandle(hThread)
	test_DestroyObjects()
	PostQuitMessage(0)
End Sub

Sub MainWnd_CommandButton1_Click()
	If hThread<>0 Then CloseHandle(hThread)
	hThread=CreateThread(ByVal 0, 0, AddressOf(MainOperation), 0, 0, VarPtr(ID_Thread1))
End Sub

Function MainOperation(dwDummy As DWord)
	MessageBox(hMainWnd,"MeesageBoxのテストです","Message",MB_OK) 
End Function

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

"MB_APPLMODAL"、指定してみたんですけど、こちらではダメみたいです。
(動きは変わりませんでした)

それからTomorrowさんの付けてくれたプログラム、
MainWnd_CommandButton1_Click() というサブは
マウスの左クリックのイベントでしょうか？
コピペで試してみたんですがこちらの環境ではどうもこのサブを通ってない
ようで、とりあえず
MainWnd_LButtonUp(flags As Long, x As Integer, y As Integer)
と勝手に変えて実行してみたんですが、メッセージボックスの動きは
変わらず。。。

　で思ったんですが、こちらはABのver4.04で実行しています。(書くのが
遅れてすみません。)
もしかしたらバージョンにも拠るのかな、と。
これからver4.24をインストールして実行してみたいと思います。

　

Tomorrowさんの付けてくれたプログラム、
MainWnd_CommandButton1_Click() というサブは
メインウインドウに貼り付けたボタンコントロールですね。(失礼しました。
どっかで見たことがあるようなと思いつつ。。)
　ver4.24に変えてRADツールでメインウインドウにボタンを
一つ貼り付けて、Tomorrowさんのプログラムをコピペして
ボタンをクリックすると、メッセージボックスが表示されました。
　・・・ただ、なぜかメッセージボックスの動きはこちらでは以前の
ままです。何故なんでしょう。
　メインウィンドウをクリックしても、メッセージボックスは、
(もちろんメインウインドウも)アクティブにならないままです。
MB_APPLMODALを付けてみても変わらず。。

　もう少し考えてみます。

(バージョン)AB ver4.24
(OS)WinMe
　

スレッドを無くしてやってみると、

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

コード: 全て選択


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

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

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

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() 
    MessageBoxTest424_DestroyObjects() 
    PostQuitMessage(0) 
End Sub 

Sub MainWnd_CommandButton1_Click() 
    MessageBox(hMainWnd,"MeesageBoxのテストです","Message",MB_OK) 
End Sub

・・・メッセージボックスの動作はうまくいきました。

　ただし、元々スレッドの中で起こることのメッセージ表示に
使いたいので、このままではダメです・・
(それに原因がスレッドにあるのかどうかもまだよく
分かりません。)

> スレッドを無くしてやってみると、
> ・・・メッセージボックスの動作はうまくいきました。
>
> (それに原因がスレッドにあるのかどうかもまだよく
> 分かりません。)

スレッドを外してうまくいくなら、スレッドが原因かもしれません。

(バージョン)AB ver4.24
(OS)WinMe

OSのバージョン違いで動作が違うのかも？
こちらはWin 2kとWin XP Homeで確認しました。

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

そうですか、OSの違い。。
もし、スレッドの中からメッセージボックスなどのダイアログボックスを
呼び出すこと自体が何かの違反でなければ、そのまま使おうかとも
思っています。ただ、、　ちょっとまだ足を取られてます(笑)

どなたかWin98系でチェックされた方が他におられたら
ハッキリしますね。それを望みつつ。

　動作確認、それからプログラム、ありがとうございました。
またよろしくお願いします。

ab.com コミュニティ

メッセージボックスをアクティブにする

メッセージボックスをアクティブにする

メッセージボックスをアクティブにする

Re: メッセージボックスをアクティブにする

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

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