Powerbuilder 12.5親ウィンドウ変数を取得

Question

応答ウィンドウの親ウィンドウから変数を取得しようとしています（両方のウィンドウは継承されていますが、ソースコードはありません）。私はすべての親変数、オブジェクト、コントロールなどをトラフすることができますが、変数を読み取ることができません。このコードは "ok event"用です。助けをお待ちしています。

window lw_active, w_parentwindow 
string ls_winname, ls_libname, ls_wintitle 
ClassDefinition cd_windef 


w_parentwindow = this.ParentWindow() 
lw_active = w_parentwindow.GetFirstSheet() 

if isvalid(lw_active) = True then 
     ls_winname = lw_active.classname() 

     cd_windef = FindClassDefinition(ls_winname) 
     ls_libname = cd_windef.LibraryName 
     ls_wintitle = lw_active.title 

     messagebox(ls_winname, ls_libname+'~r~n~r~n'+ls_wintitle, Information!)  

     string s, lineend 
integer li 
VariableDefinition vard 
lineend = "~r~n" 
FOR li = 1 to UpperBound(cd_windef.VariableList) 
    vard = cd_windef.VariableList[li] 
    s = s + vard.Name + lineend 
NEXT 
messagebox('s',s) 

end if 

Answer 1

1. アクセスしたいウィンドウを継承。あなたの子孫ウィンドウw_mineと祖先w_theirsと呼ぶでしょう。
2. w_mineにアクセサメソッドを追加します。プライベートでないw_theirsのものを参照することができます。
3. w_mine型の変数を宣言します。
4. ウィンドウ参照をw_mineに割り当てます。 w_mineに追加したメソッドを呼び出すことができます。
5. w_mineを破壊しないでください。範囲外にするだけです。 PBでは、変数nullを設定する必要はなく、何か特別なことをする必要はありません。ウィンドウを閉じると参照が無効になることに注意してください。参照を保持するためにインスタンス変数を使用しないでください。