diff --git a/funcext/tvclib/utslvclstdctl.tsf b/funcext/tvclib/utslvclstdctl.tsf
index 5d1c436..19ffc4c 100644
--- a/funcext/tvclib/utslvclstdctl.tsf
+++ b/funcext/tvclib/utslvclstdctl.tsf
@@ -3257,10 +3257,30 @@ type TcustomListBox=class(TCustomListBoxbase)
         {**
         @explan(说明)获取当前选中项的索引，仅用于单选的列表框%%
         **}
-        if FMultisel=0 then
-        begin
-            return FSelBegin;
-        end
+        case FMultisel of 
+            0:      //单选
+            begin
+                return  FSelBegin;
+            end 
+            1:  //连续选择
+            begin
+                return array(FSelBegin,FSelEnd);    
+            end 
+            2:   //间断选择
+            begin
+                r := array();
+                rl := 0;
+                for i,v in FMultisel3Data do 
+                begin
+                    if v then 
+                    begin
+                        r[rl] := i;
+                        rl++;
+                    end 
+                end 
+                return r;
+            end         
+        end 
         return -1;
     end
     function setCurrentSelection(n);virtual;