ab.com コミュニティ

> 　メインウインドウの他に、新しく「通常ウインドウ」を
> 作成する方法を教えてください。
>
> --------------------------------------------
>
> メインウインドウとは別に補助的な表示をさせるウインドウを
> 作りたいと思い、当初、「モードレスダイアログ」でウインドウを作ったの
> ですが、これだとメインのウインドウに重なった時、非アクティブな時でも
> メインウインドウよりも前面に来てしまい、メインが見づらくなってしまいます。
> ただ、これはそもそもモードレスダイアログの仕様なのかもしれない
> と思い、もしかしたら「通常ウインドウ」が自分の作りたいもの
> ではないかと思いました。
>
> 　それで、モードレスダイアログの例に倣って、通常ウインドウを
> 作っていこうとしたんですが、
> 1,RADツール、ProjectViewのマテリアル・タブから
> 新たにウインドウを挿入して、
> 2,CreateWindowEX()でウインドウを作成しようとしたんですが、
> "lpClassName"、や"hInstance"など
> 実際にどのように設定すべきなのか分からないものも
> あり、詰まっています。
> (また"RegisterClassEx"や"WNDCLASSEX構造体"なども。)
> それにマテリアル・タブから新たにウインドウを挿入したとき
> 、RADではどこまで自動的に作っているのかも分からず
> 悩んでいます。
>
> RADツールを使って新しく「通常ウインドウ」を
> 作成し、表示する方法を教えてください。

新しく作った通常ウィンドウのスタイルに「可視」を追加するか、ShowWindow関数で新しく作ったウィンドウのハンドルを指定してSW_SHOWで表示してやればよいです。

Sub MainWnd_CommandButton1_Click()

  Dim windowRc As RECT

  windowRc.left=0 
  windowRc.top=0 
  windowRc.right=256
  windowRc.bottom=128
  AdjustWindowRectEx(windowRc,GetWindowLong(hNormalWindow1, GWL_STYLE), TRUE, GetWindowLong(hNormalWindow1, GWL_EXSTYLE))
  MoveWindow(hNormalWindow1,256,256,windowRc.right-windowRc.left, windowRc.bottom-windowRc.top, TRUE)
  ShowWindow(hNormalWindow1,SW_SHOW)

End Sub

> ただそれで次に、メインウインドウ作成時に、このノーマルウインドウを
> 初めから表示させておきたいと思って(ボタンクリックからではなく)、
> メインウインドウのクリエイト・イベント内に上の処理を書いてみたのですが、
> その時にはこのノーマルウインドウは表示できませんでした。
>
> 　調べてみるとどうもノーマルウインドウのハンドル(hNormalWindow1)が
> ゼロ。まだ作成されてない様子。
> メインウインドウのクリエイト・イベントが終了するまでhNormalWindow1は
> 作られないのかなとも思ったのですが、
> 　それでもその解決が分かりません。
>
> ノーマルウインドウのハンドルhNormalWindow1が作成されているかどうか、
> 確認するにはどうしたら良いのでしょうか。

> 「可視」のチェック、ウインドウが表示されました。
> ただ、このチェックでは上のプログラムでやっていたウインドウの
> 大きさのセットなど諸々の操作が出来ず、やはりハンドルの取得が
> 必要かなと思っています。

通常ウィンドウを2つ作成した場合は、メインウィンドウのクリエイトイベントが終了
してから2つ目のウィンドウが作成されます。
ですのでメインウィンドウのクリエイトで変数を設定しておき、2つ目のウィンドウで
その変数を使用しても問題ありません。

前と同じ設定でいいのであれば、MakeWindow.wbpというのを開いて、
そのなかで
CreateWindowEx関数を呼んでいる行をそのままコピーすればOKです。

hOwnerWindowを0にして呼び出せば
同じことができるかもしれません。