函数查找界面加入快捷键 ，上下，ctrl+o打开

designer/ctl_mgr/t_function_finder.tsf

@@ -54,6 +54,14 @@ type t_function_finder=class(tdcreateform)
     begin
         ec := e.charcode;
         case ec of
+            ord("O"):
+            begin
+                if ssCtrl in  e.shiftstate() then 
+                begin 
+                    e.skip := true;
+                    openthefile();
+                end 
+            end 
             13:
             begin 
                 return dofind();