如何以编程方式确保一个Shape控件在一个么TextBox（文本框）控件之后？

[hihiwolf]

如何以编程方式确保一个Shape控件在一个么TextBox（文本框）控件之后？
因为有时候设置界面时TextBox（文本框）放在一个Shape控件前，控件有时候会无法获得输入焦点同样情况但ComboBox却可以获得输入焦点.

[newfang]

是不是动态增加呀,先后顺序分开ok了!

[SongDaXia]

一、用程序生成界面时
frm1=createobject("CMyform")
frm1.show
read events
return

define class CMyform as form
*只要将以下紧挨的两行交换，就会出现你所说的情况，原因就是交换后控件的TABIndex发生了变化，先添加的控件默认为在靠下的一层。
add object text1 as textbox with left=60,top=100,width=50,height=20
add object shape1 as shape with left=30,top=70,width=200,height=80,fillstyle=0,fillcolor=rgb(128,128,192)
add object cmd1 as commandbutton with left=10,top=10,caption='\<Close',height=24,width=40

proc cmd1.click
clear events
thisform.release
endproc
enddefine

二、以表单设计器中，选中SHAPE，用格式工具栏中的“置前”、“置后”也可调整它与TEXTBOX的前后关系。