[ 파워빌더.PopUp - POP or RESPONSE를 MDI 가운데로 ]

 

☞   

 

쪽지로 문의 하셔서 간단하게 올려 봅니다.

제목 그대로 mdi윈도를 따라다니도록 하는 스크립트

window open event에서 다음과 같이

//===========================================================

window lwin
hide()
post show()
lwin = ParentWindow()
if IsValid( lwin ) then
 Do While IsValid( lwin )
  if lwin.Windowtype = MDI! or lwin.Windowtype = MDIHelp! then
   exit
  end if
  lwin = lwin.ParentWindow()
 Loop
else
 This.center = true
end if
if IsValid( lwin ) then
 if lwin.width < This.width then
  This.x = lwin.x
 else
  This.x = lwin.x + ( ( lwin.width - This.width ) / 2 )
 end if
 if lwin.height < This.height then
  This.y = lwin.y
 else
  This.y = lwin.y + ( ( lwin.height - This.height ) / 2 )
 end if
end if

//===========================================================

이케하면 되고요

appeon에서는 테스트 안했습니다.

환경이 되시는분 테스트 부탁 합니다.

Posted by 농부지기
,