非アクティブにならないようにしたいのですができません><
#uselib "user32.dll" #func global GetWindowLong "GetWindowLongA" sptr,sptr #func global SetWindowLong "SetWindowLongA" sptr,sptr,sptr #func global SetParent "SetParent" sptr,sptr #define GWL_EXSTYLE #define GWL_STYLE (-16) #define GWL_HWNDPARENT (-8) #define WS_CHILD 0x40000000 sdim aa screen 2, 300, 300 : wid = hwnd title "子" mesbox aa,200,200 screen 0, 600, 400: topwid = hwnd title "親" GetWindowLong wid, GWL_STYLE SetWindowLong wid, GWL_STYLE, stat|WS_CHILD SetParent wid, topwid stop
上のソースだと親は常にアクティブなのですが、今度は子が常に非アクティブになり
配置したmesboxにフォーカスが移らなくて、入力できません><
何がいたいんだ!!!と言うと、タブコントロールのタブが無いバージョンみたい
なのを作りたいわけです。
ググルとMDIとかフレームなんちゃらとか、もうわけわかめ状態です><
先輩方!!ご教授よろしくお願いします><