
いつもお世話になっております。
小生、只今C言語とWin32APIを使い、WindowsXPSP3上で、BCC5.5.1を使用し、Windowsプログラミングを勉強しています。
今回、子供ウィンドウを表示しようとしたのですが、
下記のコードをコンパイルしても、子供ウィンドウが表示されません。
大変、申し訳ございませんが、先輩方、アドバイス宜しくお願いします。
/* 子供ウィンドウを作成 */
#include <windows.h>
LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);
ATOM InitApp(HINSTANCE, LPCSTR);
BOOL InitInstance(HINSTANCE, int, LPCSTR);
int WINAPI WinMain(
HINSTANCE hCurInst,
HINSTANCE hPrevInst,
LPSTR lpsCmdLine,
int nCmdShow)
{
MSG msg;
BOOL bRet;
LPCSTR szClassName = "ChildWindow";
if(!InitApp(hCurInst, szClassName)){
return FALSE;
}
if(!InitInstance(hCurInst, nCmdShow, szClassName)){
return FALSE;
}
while((bRet = GetMessage(&msg, NULL, 0, 0)) != 0){
if(bRet == -1){
MessageBox(NULL, "GetMessage Error", "Error", MB_OK);
break;
}
else{
TranslateMessage(&msg);
DispatchMessage(&msg);
}
}
return (int)msg.wParam;
}
//ウィンドウクラスの登録
ATOM InitApp(HINSTANCE hInst, LPCSTR szClassName)
{
WNDCLASSEX wc;
wc.cbSize = sizeof(WNDCLASSEX);
wc.style = CS_HREDRAW | CS_VREDRAW;
wc.lpfnWndProc = WndProc;
wc.cbClsExtra = 0;
wc.cbWndExtra = 0;
wc.hInstance = hInst;
wc.hIcon = (HICON)LoadImage(
NULL,
MAKEINTRESOURCE(IDI_APPLICATION),
IMAGE_ICON,
0,
0,
LR_DEFAULTSIZE | LR_SHARED);
wc.hCursor = (HCURSOR)LoadImage(
NULL,
MAKEINTRESOURCE(IDC_ARROW),
IMAGE_CURSOR,
0,
0,
LR_DEFAULTSIZE | LR_SHARED);
wc.hbrBackground = (HBRUSH)GetStockObject(WHITE_BRUSH);
wc.lpszMenuName = NULL;
wc.lpszClassName = (LPCSTR)szClassName;
wc.hIconSm = (HICON)LoadImage(
NULL,
MAKEINTRESOURCE(IDI_APPLICATION),
IMAGE_ICON,
0,
0,
LR_DEFAULTSIZE | LR_SHARED);
return (RegisterClassEx(&wc));
}
//ウィンドウの生成
BOOL InitInstance(HINSTANCE hInst, int nCmdShow, LPCSTR szClassName)
{
HWND hWnd;
hWnd = CreateWindow(
szClassName,
"Window",
WS_OVERLAPPEDWINDOW,
CW_USEDEFAULT,
CW_USEDEFAULT,
CW_USEDEFAULT,
CW_USEDEFAULT,
NULL,
NULL,
hInst,
NULL);
if(!hWnd){
return FALSE;
}
ShowWindow(hWnd, nCmdShow);
UpdateWindow(hWnd);
return TRUE;
}
//ウィンドウプロシージャ
LRESULT CALLBACK WndProc(HWND hWnd, UINT msg, WPARAM wp, LPARAM lp)
{
static HWND hWndChild;
HINSTANCE hInst;
switch(msg){
case WM_CREATE:
hInst = ((LPCREATESTRUCT)lp)->hInstance;
hWndChild = CreateWindow(
"Child",
"子供ウィンドウ",
WS_CHILD | WS_SYSMENU | WS_THICKFRAME | WS_CAPTION |
WS_MINIMIZEBOX | WS_MAXIMIZEBOX,
CW_USEDEFAULT,
CW_USEDEFAULT,
200,
100,
hWnd,
0,
hInst,
NULL);
ShowWindow(hWndChild, SW_SHOW);
UpdateWindow(hWndChild);
break;
case WM_DESTROY:
PostQuitMessage(0);
break;
default:
return (DefWindowProc(hWnd, msg, wp, lp));
}
return 0;
}

No.2ベストアンサー
- 回答日時:
> //ウィンドウプロシージャ
> LRESULT CALLBACK WndProc(HWND hWnd, UINT msg, WPARAM wp, LPARAM lp)
> //ウィンドウクラスの登録
> ATOM InitApp(HINSTANCE hInst, WNDPROC WndProc, LPCSTR szClassName)
ウィンドウプロシージャの関数名と、
InitApp関数の第2引数が
どちらも、WndProcと同じ名前で被っている様ですので、違う名前に変えてみては?
この回答への補足
ご回答頂き、誠にありがとうございます。
InitApp関数の第2引数をProcに変更してみたところ、
期待通りに、子ウィンドウが一つだけ表示する事ができました!!
お手数かけて申し訳ないのですが、
なぜ、第2引数の名前がWndProcの場合、
子ウィンドウが大量に作成されたのでしょうか??
大変、申し訳ございませんが、
ご教授宜しくお願いします。
No.5
- 回答日時:
ようやく状況が把握できました。
回答No.1 の補足に掲載されたコードで複数の子ウィンドウが表示されたということでしたが、どうやら、そうではなかったようですね。
回答No.1 の補足に掲載されたコード
ATOM InitApp(HINSTANCE hInst, WNDPROC WndProc, LPCSTR szClassName)
...
wc.lpfnWndProc = WndProc;
だと問題ありません(子ウィンドウは一つだけです)が、
例えば、
ATOM InitApp(HINSTANCE hInst, WNDPROC WndPrc, LPCSTR szClassName)
...
wc.lpfnWndProc = WndProc;
のように、仮引数(WndPrc) と wc.lpfnWndProc にセットしたプロシージャ名が異なったものになると、
wc.lpfnWndProc = WndProc;
の WndProc が
LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);
として解釈され、ANo.3の方のおっしゃる通りの動作になっていたようです。
回答No.1 の補足に掲載されたコードのように
ATOM InitApp(HINSTANCE hInst, WNDPROC WndProc, LPCSTR szClassName)
の仮引数と
wc.lpfnWndProc = WndProc;
でセットしているプロシージャ名が一致していれば問題ありません。
No.4
- 回答日時:
ん~~、私的にはどうも腑に落ちません…。
ANo1の補足質問のコードで実行してみましたけど、私の環境では、子ウィンドウは一つだけ作成されました。
メモリ不足やスタックオーバーフローが起きているわけでもなさそうです。
InitAppの第二引数を修正されたというのはInitApp呼び出しのところではなく、InitAppの定義のところですよね?
この回答への補足
ご回答頂き誠にありがとうございます。
>InitAppの第二引数を修正されたというのはInitApp呼び出しのところではなく、InitAppの定義のところですよね?
はい。
InitAppの定義の箇所を変更しました。
コードは以下のようになります。
#include <windows.h>
LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);
LRESULT CALLBACK ChildProc(HWND hChdWnd, UINT msg, WPARAM wp, LPARAM lp);
ATOM InitApp(HINSTANCE, WNDPROC, LPCSTR);
BOOL InitInstance(HINSTANCE, int, LPCSTR);
int WINAPI WinMain(
HINSTANCE hCurInst,
HINSTANCE hPrevInst,
LPSTR lpsCmdLine,
int nCmdShow)
{
MSG msg;
BOOL bRet;
LPCSTR szClassName = "ChildWindow";
if(!InitApp(hCurInst, WndProc, szClassName)){
return FALSE;
}
if(!InitInstance(hCurInst, nCmdShow, szClassName)){
return FALSE;
}
while((bRet = GetMessage(&msg, NULL, 0, 0)) != 0){
if(bRet == -1){
MessageBox(NULL, "GetMessage Error", "Error", MB_OK);
break;
}
else{
TranslateMessage(&msg);
DispatchMessage(&msg);
}
}
return (int)msg.wParam;
}
//ウィンドウクラスの登録
ATOM InitApp(HINSTANCE hInst, WNDPROC Proc, LPCSTR szClassName)
{
WNDCLASSEX wc;
wc.cbSize = sizeof(WNDCLASSEX);
wc.style = CS_HREDRAW | CS_VREDRAW;
wc.lpfnWndProc = Proc;
wc.cbClsExtra = 0;
wc.cbWndExtra = 0;
wc.hInstance = hInst;
wc.hIcon = (HICON)LoadImage(
NULL,
MAKEINTRESOURCE(IDI_APPLICATION),
IMAGE_ICON,
0,
0,
LR_DEFAULTSIZE | LR_SHARED);
wc.hCursor = (HCURSOR)LoadImage(
NULL,
MAKEINTRESOURCE(IDC_ARROW),
IMAGE_CURSOR,
0,
0,
LR_DEFAULTSIZE | LR_SHARED);
wc.hbrBackground = (HBRUSH)GetStockObject(WHITE_BRUSH);
wc.lpszMenuName = NULL;
wc.lpszClassName = (LPCSTR)szClassName;
wc.hIconSm = (HICON)LoadImage(
NULL,
MAKEINTRESOURCE(IDI_APPLICATION),
IMAGE_ICON,
0,
0,
LR_DEFAULTSIZE | LR_SHARED);
return (RegisterClassEx(&wc));
}
//ウィンドウの生成
BOOL InitInstance(HINSTANCE hInst, int nCmdShow, LPCSTR szClassName)
{
HWND hWnd;
hWnd = CreateWindow(
szClassName,
"Window",
WS_OVERLAPPEDWINDOW,
CW_USEDEFAULT,
CW_USEDEFAULT,
CW_USEDEFAULT,
CW_USEDEFAULT,
NULL,
NULL,
hInst,
NULL);
if(!hWnd){
return FALSE;
}
ShowWindow(hWnd, nCmdShow);
UpdateWindow(hWnd);
return TRUE;
}
//ウィンドウプロシージャ
LRESULT CALLBACK WndProc(HWND hWnd, UINT msg, WPARAM wp, LPARAM lp)
{
static HWND hWndChild;
HINSTANCE hInst;
switch(msg){
case WM_CREATE:
hInst = ((LPCREATESTRUCT)lp)->hInstance;
InitApp(hInst,
ChildProc,
"Child");
hWndChild = CreateWindow(
"Child",
"子供ウィンドウ",
WS_CHILD | WS_SYSMENU | WS_THICKFRAME | WS_CAPTION |
WS_MINIMIZEBOX | WS_MAXIMIZEBOX,
CW_USEDEFAULT,
CW_USEDEFAULT,
200,
100,
hWnd,
0,
hInst,
NULL);
ShowWindow(hWndChild, SW_SHOW);
UpdateWindow(hWndChild);
break;
case WM_DESTROY:
PostQuitMessage(0);
break;
default:
return (DefWindowProc(hWnd, msg, wp, lp));
}
return 0;
}
LRESULT CALLBACK ChildProc(HWND hChdWnd, UINT msg, WPARAM wp, LPARAM lp)
{
switch(msg){
case WM_CLOSE:
DestroyWindow(hChdWnd);
break;
default:
return (DefWindowProc(hChdWnd, msg, wp, lp));
}
return 0;
}
No.3
- 回答日時:
こんにちは。
簡単に書くと、
・失敗
(1)CreateWindowEx(親ウィンドウ)
(2)WndProc(WM_CREATE)
(3)CreateWindowEx(子ウィンドウ)
(4)WndProc(WM_CREATE)
(5)スタックオーバーフローを起こすまで(3)と(4)の繰返し
・成功
(1)CreateWindowEx(親ウィンドウ)
(2)WndProc(WM_CREATE)
(3)CreateWindowEx(子ウィンドウ)
(4)ChildProc(WM_CREATE)
(5)打ち止め
ではないでしょうか。
ご回答頂き誠にありがとうございます。
提示していただいた、手順を見、コードを見直してみると
はっきりとコードの動きがわかりました。
本当にありがとうございます。
No.1
- 回答日時:
掲載する時のミスなのかもしれませんが、親ウィンドウの"ChildWindow"クラスの登録は行われていますが、子ウィンドウの"Child"クラスの登録が行われていないからのように見えます。
WndProcの中のCreateWindowが失敗していないか、戻り値を確認されるとよいと思います。
この回答への補足
早速のご回答頂き、誠にありがとうございます。
ご指摘のあった様に、Childクラスの登録を加えて、実行してみると、
子ウィンドウは表示されたのですが、添付させて頂いた画像の用に、
子ウィンドウの中に複数の子ウィンドウが作成されてしまいました。
子ウィンドウを一つだけ、表示させたいのですが。。。
申し訳ございませんが、再度、ご教授宜しくお願いします。
#include <windows.h>
LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);
LRESULT CALLBACK ChildProc(HWND hChdWnd, UINT msg, WPARAM wp, LPARAM lp);
ATOM InitApp(HINSTANCE, WNDPROC, LPCSTR);
BOOL InitInstance(HINSTANCE, int, LPCSTR);
int WINAPI WinMain(
HINSTANCE hCurInst,
HINSTANCE hPrevInst,
LPSTR lpsCmdLine,
int nCmdShow)
{
MSG msg;
BOOL bRet;
LPCSTR szClassName = "ChildWindow";
if(!InitApp(hCurInst, WndProc, szClassName)){
return FALSE;
}
if(!InitInstance(hCurInst, nCmdShow, szClassName)){
return FALSE;
}
while((bRet = GetMessage(&msg, NULL, 0, 0)) != 0){
if(bRet == -1){
MessageBox(NULL, "GetMessage Error", "Error", MB_OK);
break;
}
else{
TranslateMessage(&msg);
DispatchMessage(&msg);
}
}
return (int)msg.wParam;
}
//ウィンドウクラスの登録
ATOM InitApp(HINSTANCE hInst, WNDPROC WndProc, LPCSTR szClassName)
{
WNDCLASSEX wc;
wc.cbSize = sizeof(WNDCLASSEX);
wc.style = CS_HREDRAW | CS_VREDRAW;
wc.lpfnWndProc = WndProc;
wc.cbClsExtra = 0;
wc.cbWndExtra = 0;
wc.hInstance = hInst;
wc.hIcon = (HICON)LoadImage(
NULL,
MAKEINTRESOURCE(IDI_APPLICATION),
IMAGE_ICON,
0,
0,
LR_DEFAULTSIZE | LR_SHARED);
wc.hCursor = (HCURSOR)LoadImage(
NULL,
MAKEINTRESOURCE(IDC_ARROW),
IMAGE_CURSOR,
0,
0,
LR_DEFAULTSIZE | LR_SHARED);
wc.hbrBackground = (HBRUSH)GetStockObject(WHITE_BRUSH);
wc.lpszMenuName = NULL;
wc.lpszClassName = (LPCSTR)szClassName;
wc.hIconSm = (HICON)LoadImage(
NULL,
MAKEINTRESOURCE(IDI_APPLICATION),
IMAGE_ICON,
0,
0,
LR_DEFAULTSIZE | LR_SHARED);
return (RegisterClassEx(&wc));
}
//ウィンドウの生成
BOOL InitInstance(HINSTANCE hInst, int nCmdShow, LPCSTR szClassName)
{
HWND hWnd;
hWnd = CreateWindow(
szClassName,
"Window",
WS_OVERLAPPEDWINDOW,
CW_USEDEFAULT,
CW_USEDEFAULT,
CW_USEDEFAULT,
CW_USEDEFAULT,
NULL,
NULL,
hInst,
NULL);
if(!hWnd){
return FALSE;
}
ShowWindow(hWnd, nCmdShow);
UpdateWindow(hWnd);
return TRUE;
}
//ウィンドウプロシージャ
LRESULT CALLBACK WndProc(HWND hWnd, UINT msg, WPARAM wp, LPARAM lp)
{
static HWND hWndChild;
HINSTANCE hInst;
switch(msg){
case WM_CREATE:
hInst = ((LPCREATESTRUCT)lp)->hInstance;
InitApp(hInst,
ChildProc,
"Child");
hWndChild = CreateWindow(
"Child",
"子供ウィンドウ",
WS_CHILD | WS_SYSMENU | WS_THICKFRAME | WS_CAPTION |
WS_MINIMIZEBOX | WS_MAXIMIZEBOX,
CW_USEDEFAULT,
CW_USEDEFAULT,
200,
100,
hWnd,
0,
hInst,
NULL);
ShowWindow(hWndChild, SW_SHOW);
UpdateWindow(hWndChild);
break;
case WM_DESTROY:
PostQuitMessage(0);
break;
default:
return (DefWindowProc(hWnd, msg, wp, lp));
}
return 0;
}
LRESULT CALLBACK ChildProc(HWND hChdWnd, UINT msg, WPARAM wp, LPARAM lp)
{
switch(msg){
case WM_CLOSE:
DestroyWindow(hChdWnd);
break;
default:
return (DefWindowProc(hChdWnd, msg, wp, lp));
}
return 0;
}
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで作った新しいウイン...
-
「アイテムは収集されました」...
-
VBAでのタイトルバーの取得
-
皆さん、おはようございます♪ ...
-
Alt+P,Alt+NをPostmessageで送...
-
ラジオボタンの初期指定
-
作成したウインドウのサイズを...
-
勝手にウィンドウが開いて止ま...
-
他アプリの操作(メニューバー)
-
OutlookでRSSフィードやメモの...
-
Excel VBA での画面最大化のロ...
-
VBAで単一ブック複数窓を閉じる...
-
メッセージをスルー
-
Excelの上下を固定したい
-
他のアプリケーションの終了処理
-
VC++でタスクバーに表示させな...
-
起動時のメインウィンドウのア...
-
UWSCで特定のChromeのタブをア...
-
C#でファイル転送プログラムWin...
-
WebBrowserでOfficeファイル等...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで作った新しいウイン...
-
「アイテムは収集されました」...
-
ラジオボタンの初期指定
-
勝手にウィンドウが開いて止ま...
-
皆さん、おはようございます♪ ...
-
検索の画面がでなくなってしま...
-
Vba LongPtrについて教えてくだ...
-
【VB2008】 マウス操作の一時的...
-
[VBA] UserForm を Excel の W...
-
VBA .Value=.Value ?
-
Excelの上下を固定したい
-
UWSCで特定のChromeのタブをア...
-
ExcelのBOOKが消えた!
-
「&HFFFF」「&H1A」とは?
-
ゲームでは結局どっちが良いの?
-
作成したウインドウのサイズを...
-
エクセルで1行目から3行目が消...
-
Console.WriteLine で表示されない
-
Alt+P,Alt+NをPostmessageで送...
-
EnumChildWindowsの使い方(VBA)
おすすめ情報