设置超级列表框行间距的模块源码

设置超级列表框行间距,具体如何自行测试即可,上图片以供大家参考。

局内部.Hwnd ＝ GetAncestor (超级列表框句柄, 2)
局内部.过程指针 ＝ SetWindowLong (局内部.Hwnd, -4, 到整数 (&WndProc))
加入成员 (内部类型, 局内部)
内部类型 [1].行距 ＝ 行距
winpos.hwnd ＝ 超级列表框句柄
OldStyle ＝ GetWindowLong (winpos.hwnd, -16)
SetWindowLong (winpos.hwnd, -16, 位或 (OldStyle, 1024))
SendMessageWINDOWPOS (winpos.hwnd, 71, 0, winpos)
SetWindowLong (winpos.hwnd, -16, OldStyle)
SendMessage (winpos.hwnd, 4138, 0, 0)