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