如何使得控件随着窗口的拖放而同步变化，高手过来帮帮小弟啊。。。

[pinecrane]

设计基本完成了，但是觉得界面不美观，控件不能与窗口的拖放同步，该如何实现呢？？
我看到一个例子，说是要访问窗口的一个Controls[]。但是还是不知道怎么写啊。

高手帮帮忙啊。。。谢谢了。。

[zyhtz]

在数据窗口所在窗口的resize事件里去控制你的控件的大小
这个事件是当窗口大小变化时触发的
如
resize
int ii_height,ii_width
ii_width=this.WorkSpaceWidth()
ii_height=this.WorkSpaceheight()
dw_1.width=ii_width
dw_2.height=ii_height
就是控制这个数据窗口和窗口一样大小

[shahand]

code examples

[joss]

1、写一个自定义事件ue_resize
把窗口控件位置设置脚本写入其中，由脚本控制控件位置
2、在resize事件中调用ue_resize

问题搞掂！你也可直接写在resize中，这是我一个习惯写在ue_resize中！

[zhoufenghubei]

１．在窗口ｏｐｅｎ事件中记下当前窗口的大小。
ｌｏｎｇ ii_height,ii_width
ii_width=dw_1.width
ii_height＝dw_2.height

２．在窗口resize事件中先得到变化后的窗口的大小。
　　ａ．计算出长宽的比例
　　ｂ．加上如下代码
　　　long ll_ctls，ll_count
　　　ll_ctls=UpperBoun(Controls[])//计算窗口中控件的个数
　　　this.setredraw(false)
for ll_count=1 to ll_ctls


　　　//在循环中按计算的比例改变窗口中控件的大小

　 next
　　　this.setredraw(ｔｒｕｅ)

[Thinkinger]

PFC吧！

[klbt]

PowerBuilder的窗口对象有一个非常重要的属性-control[]数组，存储了窗口内放置的所有控件。通过这个数组，可以访问各控件的属性。但窗口的control[]数组并不存储放在Tab控件和UserObject控件内部的控件，它们存储在Tab控件和UserObject控件各自的control[]数组中。

　　在窗口的open事件中，通过其control[]数组，找出在窗口内放置的全部DragObject类控件（当遇到Tab控件和UserObject控件时，继续通过它们各自的control[]数组，找出其内部的全部DragObject类控件），保存所有找到的控件的原始x、y、width和height属性数据与当前窗口原始宽度和高度的比例值。当窗口大小调整时，在resize事件中，根据保存的各控件的比例值重置控件的x、y、width和height属性，从而实现控件随窗口大小的变化自动按比例放大或缩小。

[waterstony]

做一个自适应屏幕分辨率的窗口，当成一个应用程序中所有窗体的基类。这样整个程序可以很好的适应屏幕分辨率的改变。实现的原理很简单，就是在窗口打开的时候去RESIZE窗口和窗口中的控件大小，位置。参看下面的源代码，可以很容易的看懂。

1。新建一个窗口。

为窗口写一个函数f_resize（）大部分工作就在这里。
无输入参数
返回值为整形：

environment env
integer ii_ScreenWidth,ii_ScreenHeight
double WRadio,HRadio,Radio
integer ii_WinBolderWidth,ii_WinBolderHeight
getenvironment(env)
ii_WinBolderWidth=this.width - this.WorkSpaceWidth()//取得窗体的边框宽度
ii_WinBolderHeight=this.height - this.WorkSpaceHeight()
ii_ScreenWidth=env.screenwidth
ii_ScreenHeight=env.screenheight
//compute the radio that need be resize

WRadio=ii_ScreenWidth/800 //标准认为屏幕分辨率为800*600
HRadio=ii_ScreenHeight/600//计算出屏幕相对800*600分辨率的变化量
Radio=Min(WRadio,HRadio)
if Radio=1.0 then //if the screen is default 800*600
return 0
end if
this.hide()
this.width=(this.width - ii_WinBolderWidth)*Radio + ii_WinBolderWidth
this.height=(this.height - ii_WinBolderHeight)*Radio + ii_WinBolderHeight
integer i
dragobject temp//用于取各种控件

for i=1 to upperbound(this.control)
temp=this.control[i]//调整大小，位置
temp.width=temp.width*Radio
temp.x=temp.x*Radio
temp.y=temp.y*Radio
temp.Height=temp.Height*Radio
choose case typeof(temp)
case tab!
tab mtab
mtab=temp
mtab.textsize = mtab.textsize*Radio//设置字体
case commandbutton!
commandbutton cb
cb = temp
cb.textsize = cb.textsize*Radio

case singlelineedit!
singlelineedit sle
sle = temp
sle.textsize=sle.textsize*Radio
case editmask!
editmask em
em = temp
em.textsize = em.textsize*Radio

case statictext!
statictext st
st = temp
st.textsize = st.textsize*Radio

case datawindow! // datawindows get zoomed
datawindow dw
dw = temp
dw.Object.DataWindow.zoom = string(int(Radio*100))//注意DATAWINDOW与其它控件的不同

case picturebutton!
picturebutton pb
pb = temp
pb.textsize = pb.textsize*Radio

case checkbox!
checkbox cbx
cbx = temp
cbx.textsize = cbx.textsize*Radio

case dropdownlistbox!
dropdownlistbox ddlb
ddlb = temp
ddlb.textsize = ddlb.textsize*Radio

case groupbox!
groupbox gb
gb = temp
gb.textsize = gb.textsize*Radio

case listbox!
listbox lb
lb = temp
lb.textsize = lb.textsize*Radio

case multilineedit!
multilineedit mle
mle = temp
mle.textsize = mle.textsize*Radio

case radiobutton!
radiobutton rb
rb = temp
rb.textsize = rb.textsize*Radio

end choose
next
this.show()
return 0

函数写好以后，在窗体的OPEN事件里调用该函数即可.