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 или делать что-то особенное. Обратите внимание: если вы закроете окно, ваша ссылка станет недействительной. Я бы не использовал переменную экземпляра для хранения ссылки.