コラムがクリックされるとWM_NOTIFYメッセージの形で通知が来るので、
そこから情報を得ます。具体的には以下のような感じです。(^_^;
#const WS_CHILD $40000000
#const WS_VISIBLE $10000000
#const LVS_REPORT $00000001
#const LVCF_TEXT $00000004
#const LVCF_WIDTH $00000002
#const LVM_INSERTCOLUMN $0000101B
#const WM_NOTIFY $0000004E
#const LVN_COLUMNCLICK $FFFFFF94
// リストビューを作成
winobj "SysListView32", "",, WS_CHILD | WS_VISIBLE | LVS_REPORT, ginfo(12), ginfo(13)
wList = objinfo(stat, 2)
// コラムを追加
dim lvc, 6 // LVCOLUMN structure
lvc = LVCF_TEXT | LVCF_WIDTH
lvc(2) = 100
repeat 6
s = "column"+ cnt
lvc(3) = varptr(s), strlen(s)
sendmsg wList, LVM_INSERTCOLUMN, cnt, varptr(lvc)
loop
oncmd gosub *on_notify, WM_NOTIFY
stop
*on_notify
dupptr nmhdr, lparam, 12, 4 // NMHDR structure
// 通知コードがコラムのクリックなら...
if (nmhdr = wList) & (nmhdr(2) = LVN_COLUMNCLICK) {
dupptr nmlv, lparam, 40, 4 // NMLISTVIEW structure
// クリックされたコラムのインデックスを見る
title "Column index = "+ nmlv(4)
}
return