设计器

修正解析死循环问题
2023-07-07 18:02:40 +08:00
parent 9b2ad753fc
commit 33f5e8a47d
3 changed files with 13 additions and 2 deletions
@@ -454,6 +454,10 @@ type tcustompagecontrol = class(TCustomControl)
        if  FCurrentid=-1 then 
        begin
            setselidx(0);
+        end else 
+        begin
+            if not (page is class(TWinControl)) then CalcTabs();
+            InvalidateRect(nil,false);
        end 
    end   
    public