界面库

整理代码

funcext/tvclib/lpseudointerface.tsl

@@ -8,9 +8,8 @@ interface
 
 **}
 function getsenderdatabyid();
-function gettslvariableptr(obj);
 function getctypesize();
-type aefclassobj_=class
+type aefclassobj_=class()
     {**
     @nickname(内存管理对象) %%
     @explan(说明)内存操作底层接口伪类 %%
@@ -150,14 +149,6 @@ type aefclassobj_=class
     end
 end
 Implementation
-function gettslvariableptr(obj);
-begin
-    {**
-    @explan(说明) 获取变量的地址,在send消息使用 %%
-    @param(obj)(obj) tsl变量 %%
-    @return(integer) 变量地址 %%
-    **}
-end
 function getctypesize();
 begin
     {**

funcext/tvclib/twincontrol.tsf

@@ -1845,11 +1845,7 @@ type TWinControl = class(tcontrol)
         y := p.y;
         sx := p.width;
         sy := p.height;
-        try
+        selfid := integer(self(true));//int64
-            selfid := int64(self(true));
-        except
-            selfid := gettslvariableptr(self(true));
-        end;
         saveobj := new TGlobalValues(selfid,self(true));
         createwndclass(p);
         FDefWndproc := p.subclasswndproc;