HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2009
0729
りすとくん子ウインドウ上でリストビュー⇒inputへフォーカス移動しない1未解決


りすとくん

リンク

2009/7/29(Wed) 11:49:13|NO.26592

以下のように、子ウインドウ上にリストビューとinputを配置したのですが、
リストビューのアイテムを選択すると、inputにフォーカスが移らなくなってしまいます。

WS_CHILD属性を持たないウインドウ上であれば、このようなことにはならないようなのですが、
WS_CHILD属性を持つウインドウ上での回避策はありませんでしょうか。

//http://hspdev-wiki.net/?%A5%A6%A5%A3%A5%F3%A5%C9%A5%A6%A4%CE%BF%C6%BB%D2%B4%D8%B7%B8 #include "user32.as" #define GWL_STYLE (-16) #define GWL_HWNDPARENT (-8) #define WS_CHILD 0x40000000 screen 2, 300, 300: title "子ウィンドウ": hChild = hwnd screen 0, 640, 480: title "親ウィンドウ": hParent = hwnd GetWindowLong hChild, GWL_STYLE SetWindowLong hChild, GWL_STYLE, stat|WS_CHILD SetParent hChild, hParent gsel 2 // screen 3 ;子ウインドウ上でなければ正常動作 //リストビューの設置 #define LVS_REPORT 0x00000001 #define LVS_SINGLESEL 0x00000004 #define LVM_INSERTITEM 0x00001007 #define LVM_INSERTCOLUMN 0x0000101B #define WS_BORDER 0x00800000 #define WS_VISIBLE 0x10000000 winobj "SysListView32", "", 0, LVS_REPORT|LVS_SINGLESEL|WS_BORDER|WS_VISIBLE|WS_CHILD, 100, 50 hList = objinfo_hwnd(stat) strBuf = "text" LVCOLUMN = $F,0,100,varptr(strBuf),0,1 LVITEM = $1,0,0,0,0,varptr(strBuf) sendmsg hList, LVM_INSERTITEM, 0, varptr(LVITEM) sendmsg hList, LVM_INSERTCOLUMN,1, varptr(LVCOLUMN) //Inputの設置 pos 0,51 input a



この記事に返信する


woodfields

リンク

2009/7/30(Thu) 15:28:12|NO.26612

ウィンドウスタイルにWS_CHILDを指定するとアクティブにならないような気がします



ONION software Copyright 1997-2021(c) All rights reserved.