本文介绍了使用TAB在红色语言的字段之间移动的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我有以下简单代码:
Red [] view [ text "Value of x:" f1: field "" return text "Value of y:" f2: field "" return text "Read Sum:" tt: text "" return button "Calculate" [ tt/text: to-string ((to-integer f1/text) + (to-integer f2/text)) ] button "Quit" [quit] ]如何添加代码,以便可以使用TAB键在不同字段之间移动?显然,这适用于Rebol( www.rebol/how-to/fields.html ),但在这里不起作用.
How can I add code so that one can move between different fields using TAB key? Apparently, this works in Rebol ( www.rebol/how-to/fields.html ) but is not working here.
推荐答案根据 gitter存档
handle-key: function [e prev-fld next-fld][ k: e/key if k = tab [ either e/shift? [win/selected: prev-fld][win/selected: next-fld] ] ] view [ text "Value of x:" f1: field "" on-key [handle-key event tt f2] return text "Value of y:" f2: field "" on-key [handle-key event f1 tt] return text "Read Sum:" tt: text "" on-key [handle-key event f2 f1] return button "Calculate" [ tt/text: to-string ((to-integer f1/text) + (to-integer f2/text)) ] button "Quit" [quit] do [win: self win/selected: f1] ]更多推荐
使用TAB在红色语言的字段之间移动
发布评论