我用wr测试delphi开发的程序,有大部分控件不是delphi自带的,所以wr认不出来,有一个控件特别怪,我用GUI Map抓到的名字叫TPopupDataList,于是,我将TSL脚本加到myinit脚本里,脚本如下
#TPopupDataList
set_class_map("TPopupDataList", "listbox");
set_record_attr("TPopupDataList", "class attached_text", "MSW_id", "location");
set_record_method("TPopupDataList", RM_RECORD);
重新启动wr,然后录制脚本,录制时,我下拉选择了一个值,但是回放的时,却选不到值,还是用一个系统默认的值,真是让人急死了,特又来求救于大家,希望大家帮帮我,看怎么回事。
还有一个控件TFRDBGRID以及它里面的没一个格子抓取的名字是TDBGridInplaceEdit,我也把它的TSL写到myinit里了,脚本如下:
#TFRDBGRIDset_class_map("TFRDBGRID", "object");
set_record_attr("TFRDBGRID", "class regexp_MSW_class label", "attached_text MSW_id MSW_class", "location");
set_record_method("TFRDBGRID", RM_RECORD);
#TDBGridInplaceEdit
set_class_map("TDBGridInplaceEdit", "edit");
set_record_attr("TDBGridInplaceEdit", "class attached_text", "MSW_id", "location");
set_record_method("TDBGridInplaceEdit", RM_RECORD);
,重启wr,录制脚本后,回放,也是回放不出来,提示错误信息:“TDBGridInplaceEdit”Errorbject is not currently displayed.
请各位帮忙解决,谢谢! |