运行下面的示例之前，先在“表单设计器”中打开一个新表单，并且往表单中加入一个或多个包含 caption 属性的控制。例如，标签或命令按钮。给每个控制选一个编号，然后运行示例。aselobj( ) 函数将显示所选择控制的名称，然后改变选择控制的标题。
gnobjects = aselobj(gaselected) && 创建包含控制名的数组
if gnobjects > 0 && 0 表示没有选择控制
clear
display memory like gaselected && 显示选定的控制
for ncnt = 1 to gnobjects
? gaselected(ncnt).caption + ' => new caption ' ;
+ ltrim(str(ncnt)) &&显示新和老的标题
gaselected(ncnt).caption = 'new caption ' ;
+ alltrim(str(ncnt)) && 分配新标题
next
endif