PROSAGA码农传奇-openedge-OpenEdge 10.2A - 即使存在任何具有ANYWHERE的RETURN / CURSOR-DOWN的通用代码，如何在编辑器小部件上应用默认的RETURN / CURSOR-DOWN？

OpenEdge 10.2A - 即使存在任何具有ANYWHERE的RETURN / CURSOR-DOWN的通用代码，如何在编辑器小部件上应用默认的RETURN / CURSOR-DOWN？

作者: 听风～
发布时间: 2024-03-05 05:59:34 (4月前)
转自：

<div class =“post-text”itemprop =“text”>
  <P>
    我在10.2B08测试了这个。这是主要的任何触发器：
  </p>
   <pre>
    <code>
      ON RETURN OF {&WINDOW-NAME} ANYWHERE DO:    
   IF SELF:TYPE = "BUTTON" THEN DO:
      APPLY "Choose".
   END.
   else do: 
      apply 'tab'.
      return no-apply.
   end.
end.
ON CURSOR-DOWN OF {&WINDOW-NAME} ANYWHERE DO:
   if self:type ne 'EDITOR' then DO:
      APPLY "Tab".
      RETURN NO-APPLY.
   END.
END.

</code>
  </pre>
  <P>
    与你所拥有的没什么不同。
现在在编辑器中，向RETURN添加一个触发器，向CURSOR-DOWN添加一个触发器。
这是你的编辑器的RETURN触发器：
  </p>
   <pre>
    <code>
      self:insert-string(chr(13)).

</code>
  </pre>
  <P>
    这是编辑器的CURSOR-DOWN触发器：
  </p>
   <pre>
    <code>
      DEFINE VARIABLE iOffset AS INTEGER     NO-UNDO.
assign iOffset = self:cursor-char
       self:cursor-line = self:cursor-line + 1 
       self:cursor-char = ioffset no-error.
do while error-status:get-message(1) begins '**Unable to set attribute CURSOR-CHAR':
   assign iOffset = iOffset - 1
          self:cursor-char = ioffset no-error.
   if iOffset = 1 then leave.
end.

</code>
  </pre>
  <P>
    如果这对您有用，请告诉我。在这里似乎对我没问题。
  </p>
</DIV>