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