设计器

优化

designer/utslvcldcomponents.tsf

@@ -597,7 +597,9 @@ format("
     @explan(说明) %s消息回调 %%
     @param(e)(tuievent) 消息对象 %%
     @param(o)(tcomponent) 组件 %%
-    **}",n);            
+    **}
+    inherited;
+    ",n);            
         end 
         return r; 
     end 
@@ -963,6 +965,7 @@ type TDForm = class(TDComponent)
         @param(o)(ttimer) 当前主窗口 %%
     **}
     if MessageBoxA('是否关闭当前窗口','关闭',MB_YESNO,o)<>IDYES then e.skip := true;
+    inherited;
 ");
     end 
 end 
@@ -1414,6 +1417,7 @@ type TDTimer = class(TDRootComponent)
         @param(e)(tuievent) 消息对象 %%
         @param(o)(ttimer) 定时器对象 %%
     **}
+    inherited;
 "
         );
     end 
@@ -2413,6 +2417,7 @@ C6D53F7109130000000049454E44AE42608200";
     begin 
         MessageBoxA(e.itemold.caption+' 切换到 '+e.itemnew.caption,'提示',0,o);
     end 
+    inherited;
 "
         
         );
@@ -2495,6 +2500,7 @@ type TDListView = class(TDComponent)
         @param(o)(tlistview) tlistview对象 %%
     **}
     MessageBoxA('当前选中:'+tostn(o.selectedid),'提示',0,o);
+    inherited;
 "
         );
     end 
@@ -2598,6 +2604,7 @@ A5183913CA16C9848495A52E9D4E97F11C21C73721A9904C28B506B19AD21D177
         @param(e)(tuievent) 消息对象 %%
         @param(o)(tmemo) 多行文本框对象 %%
     **}
+    inherited;
 "
         );
     end         
@@ -2707,6 +2714,7 @@ A42634335A12184DD45698410A1F50D8D0DD5E47F855A066327F40486508A2174
         @param(o)(tcomboBox)combobox控件 %%
     **}
     MessageBoxA('选中了项id:'+tostn(o.itemIndex),'提示',0,o);
+    inherited;
 "
         );
     end 
@@ -3043,6 +3051,7 @@ type TDCheckBtn=class(TDComponent)
        @param(o)(tcheckbtn)选择按钮 %%
    **}
    MessageBoxA(((o.checked)?'选中':'没选中'),'提示',0,o);
+   inherited;
 "
         );
     end 
@@ -3230,6 +3239,7 @@ type TDBtn = class(TDComponent)
         @param(o)(tbtn)按钮对象 %%
     **}
     MessageBoxA(o.caption+':被点击','提示',0,o);
+    inherited;
 "
         );
     end