能力值：
( LV4，RANK：50 )
|
-
-
2 楼
try
mStrings.Clear;
vItemCount := SendMessage(mHandle, LB_GETCOUNT, 0, 0);
for I := 0 to vItemCount - 1 do begin
SetLength(S, SendMessage(mHandle, LB_GETTEXTLEN, I, 0));
SendMessage(mHandle, LB_GETTEXT, I, Integer(@S[1]));
mStrings.Add(S);
end;
|
能力值：
( LV4，RANK：50 )
|
-
-
3 楼
有关VB中ListView的内容截取已经有了结果
可下载示例(fpdedemo2-lv.zip )LVM_消息
详细如下:
75dK9s2c8@1M7q4)9K6b7g2)9J5c8W2)9J5c8Y4N6%4N6#2)9J5k6i4S2@1M7X3g2E0k6i4k6T1N6r3q4D9K9#2)9J5k6h3y4G2L8g2)9J5c8Y4y4Z5L8%4N6@1K9s2u0W2j5h3c8Q4x3X3g2H3K9s2m8Q4x3@1k6@1i4K6y4p5x3K6R3J5y4K6j5`.
00eK9s2c8@1M7q4)9K6b7g2)9J5c8W2)9J5c8Y4N6%4N6#2)9J5k6i4k6T1k6X3!0J5N6h3#2K6i4K6u0W2j5$3!0E0i4K6u0r3M7$3S2G2N6%4c8Z5M7X3g2S2k6q4)9J5k6i4m8Z5M7q4)9K6c8Y4c8Q4x3@1b7@1x3o6M7$3x3e0p5`.
不知道MSGrid的代码,能不能找到!
|
|
|
|
