如何让超级列表框在有表现的时候始终有选中项

千万孤独

现在情况是一个超级列表框中几个有表项，我默认选中第一个，当我在超级列表框中，在空白处单击，双击，右击，右双击的时候，选中项会取消选中。
我的需求是，除非选中别的表项，不然无论鼠标怎么点，现选中项都不会被取消选中。

走一回

你右双击，行吗？上下两句话矛盾的吧？

liantan

超级列表框1.整行选择 ＝ 真

  

子程序名	返回值类型	公开	备 注
_超级列表框1_当前表项被改变

变量名	类 型	静态	数组	备 注
表项索引	整数型

表项索引 ＝ 超级列表框1.现行选中项

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _超级列表框1_当前表项被改变<br /> .局部变量 表项索引, 整数型<br /> <br /> 表项索引 ＝ 超级列表框1.现行选中项

真冬

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
记录表项	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

时钟1.时钟周期 ＝ 1

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

标题 ＝ 到文本 (超级列表框1.现行选中项)
超级列表框1.现行选中项 ＝ 记录表项

子程序名	返回值类型	公开	备 注
_超级列表框1_当前表项被改变

记录表项 ＝ 超级列表框1.现行选中项

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 记录表项, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 时钟1.时钟周期 ＝ 1<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> 标题 ＝ 到文本 (超级列表框1.现行选中项)<br /> 超级列表框1.现行选中项 ＝ 记录表项<br /> <br /> .子程序 _超级列表框1_当前表项被改变<br /> <br /> 记录表项 ＝ 超级列表框1.现行选中项

千万孤独

真冬 发表于 2020-12-23 16:14
[e=0]
.版本 2
.支持库 iext

你好，谢谢回复。这算是一个解决方案，但是对于多线程读取不那么友好。我联动的表格有点多。有别的方案吗？

千万孤独

走一回 发表于 2020-12-23 16:02
你右双击，行吗？上下两句话矛盾的吧？

会的，不信你可以试试，选中一行后，在列表框空白处乱点，包括右击2下。
我本来已经解决了，单击，右击，双击。唯独这个右击2下，解决不了

鹏书

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1
变量名	类 型	数组	备 注
j_suoyin	整数型

子程序名	返回值类型	公开	备 注
_超级列表框1_被双击	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

如果真 (超级列表框1.现行选中项 ＞ -1)
j_suoyin ＝ 超级列表框1.现行选中项

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_窗口1<br /> .程序集变量 j_suoyin, 整数型<br /> <br /> .子程序 _超级列表框1_被双击, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .如果真 (超级列表框1.现行选中项 ＞ -1)<br />     j_suoyin ＝ 超级列表框1.现行选中项

之后用这个程序集变量为索引来操作就可以了，保证永久有效

千万孤独

nikezhi 发表于 2020-12-23 17:00
[e=0].版本 2
.支持库 iext

不行的，右击双击空白处。选中项就失效了。
其实我懂你的意思，就是记录选中项，然后拿来操作。这个我在当表现被改变这个方法里面用了一个全局变量，目前就是这么操作的。但是还是没法显式的让人看见自己的选中项。数据一多就乱掉了。
除非用那个时钟始终来赋值选中项。

千万孤独

我自己解决了，思路就是子类化消息窗口，然后取鼠标，当鼠标不在表项中时候就取消消息，反正可以下传。

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕

全局_OldProc ＝ SetWindowLong (超级列表框1.取窗口句柄 (), -4, 到整数 (&WndProc))

.子程序 WndProc, 整数型
.参数 hwnd, 整数型
.参数 msg, 整数型
.参数 wparam, 整数型
.参数 lparam, 整数型
.局部变量 当前坐标, 坐标
.局部变量 表项结构, 表项结构信息

.如果真 (msg ≥ 513 且 msg ＜ 522)
    GetCursorPos (当前坐标)
    ScreenToClient (超级列表框1.取窗口句柄 (), 当前坐标)
    表项结构.横向 ＝ 当前坐标.横
    表项结构.纵向 ＝ 当前坐标.纵
    .如果真 (msg ≠ 4153)
        SendMessage表项结构信息 (超级列表框1.取窗口句柄 (), 4153, 0, 表项结构)  ' 当前取表项行、列位置
    .如果真结束

    调试输出 (当前坐标.横, 当前坐标.纵, 表项结构.行, 表项结构.列)
    .如果真 (表项结构.行 ＝ -1)
        返回 (-1)
    .如果真结束

.如果真结束

返回 (CallWindowProc (全局_OldProc, hwnd, msg, wparam, lparam))

zhugege0817

啊?学习学习