设计器

拆分代码

designer/examples/action/e_action.tpj

@@ -22,6 +22,6 @@ array(
    ),
    "mainform":"e_actionmain",
    "entryscript":"e_action",
-   "time":"2022-04-08 14:37:00",
-   "commandline":"\"$(TSL_EXE)\" \"$(FULL_CURRENT_PATH)\" -libpath \"$(SEARCH_PATH)\\;\""
+   "time":"2022-04-24 17:32:45",
+   "commandline":"\"$(TSL_EXE)\" \"$(FULL_CURRENT_PATH)\" -libpath \"$(SEARCH_PATH)\""
 )

designer/examples/action/e_actionmain.tsf

@@ -14,6 +14,18 @@ type E_Actionmain=class(tdcreateform)
     begin		
         inherited;
     end 
+    
+
+    function action1_onexecute(o;e);
+    begin
+        {**
+        @explan(说明) onexecute消息回调 %
+        @param(e)(tuievent) 消息对象 %
+        @param(o)(tcomponent) 组件 %
+        **}
+        echo "\r\naction do ";
+    end
+
     function btn5_clk(o;e);virtual; //修改caption
     begin
         action1.caption := datetimetostr(now());

designer/examples/action/resource.tfm/e_actionmain.tfm

@@ -18,9 +18,12 @@ object e_actionmain1:e_actionmain
    object actionlist1:tactionlist
       left=225
       top=189
+      height=30
+      width=30
       object action1:taction
          caption="绑定action的控件"
          enabled=true
+         onexecute=action1_onexecute
       end
    end
    object btn2:tbtn
@@ -59,6 +62,8 @@ object e_actionmain1:e_actionmain
    object popupmenu1:tpopupmenu
       left=162
       top=329
+      height=30
+      width=30
       caption="popupmenu1"
       object menu1:tmenu
          action=action1