如何让datawindow居中?

[djhdu]

[djhdu]

说错了,是如何让子窗口打开时位于父窗口的中间?

[Hopping]

自己写一段代码，放在窗口的OPEN事件中！窗口在打开时就会自动居中了！

[djhdu]

帮帮忙,我刚学pb,不会写,怎么写呢?

[hrbtian]

先取得父窗口的高和宽，分别减去子窗口的高和宽再除以2，作为子窗口的x,y，行不？

[silversoft]

listen

[djhdu]

我不会写语句呀,给我段代码吧!

[elapsing]

//integer wf_center()
int li_screenheight, li_screenwidth, li_rc, li_x=1, li_y = 1
environment lenv_obj

If IsNull( this ) Or Not IsValid( this ) Then Return -1

If GetEnvironment( lenv_obj ) = -1 Then Return -1

li_screenheight = PixelsToUnits( lenv_obj.ScreenHeight, YPixelsToUnits! )
li_screenwidth = PixelsToUnits( lenv_obj.ScreenWidth, XPixelsToUnits! )
If Not ( li_screenheight > 0 ) Or Not ( li_screenwidth > 0 ) Then Return -1

If li_screenwidth > this.width Then
li_x = (li_screenwidth / 2) - ( this.width / 2 )
End If

If li_screenheight > this.height then
li_y = (li_screenheight / 2) - (this.height / 2)
End If

li_rc = this.Move( li_x, li_y )

If li_rc <>1 then Return -1
Return 1

[hrbtian]

称赞，elapsing，做的很细致。