在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;