在Oracle的FORM中高亮显示鼠标点击或光标所在的行

我们新做一张form,按常规建好block和item并建一个visual attributes v1(background color=red).在相应的block level上新建一个when mouse click trigger
DECLARE
cur_itm VARCHAR2(80);
cur_block VARCHAR2(80):=:system.cursor_block;
BEGIN
cur_itm:=get_block_property(cur_block,FIRST_ITEM);
WHILE(cur_itm IS NOT NULL)
    LOOP
cur_itm:=cur_block||'.'||cur_itm;
set_item _property(cur_itm, CURRENT_RECORD_ATTRIBUTE,'V1');
cur_itm:=get_item_property(cur_itm,NEXTITEM);
END LOOP;
END;