From c6b0a0bfde4bb47347cb1c1b3b2bf4383d17356f Mon Sep 17 00:00:00 2001
From: JianjunLiu <cqljj123@126.com>
Date: Wed, 19 Oct 2022 14:03:37 +0800
Subject: [PATCH] =?UTF-8?q?=E8=AE=BE=E8=AE=A1=E5=99=A8?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

浼樺寲
---
 designer/utslvcldcomponents.tsf | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/designer/utslvcldcomponents.tsf b/designer/utslvcldcomponents.tsf
index df21287..4ee4c1a 100644
--- a/designer/utslvcldcomponents.tsf
+++ b/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