Percorrer Handle da rotina (capturar objetos)

O melhor jeito é usando recursividade

Segue rotina pronta:

Código:

PROCEDURE BuscaWidget.
  DEF INPUT PARAMETER ObjOrigem AS HANDLE. /* Handle do Frame/Objeto Original e dos próximas recursividades */
  DEF VAR ObjAtual AS HANDLE. /* Frame/Objeto Atual */
  DEF VAR ObjFilho AS HANDLE. /* Frame/Objeto 'Filho' */
 
  ObjAtual = ObjOrigem.
 
  DO WHILE VALID-HANDLE(ObjAtual):
  IF VALID-HANDLE(ObjAtual) THEN DO:
  IF ObjAtual:TYPE <> "WINDOW" AND ObjAtual:TYPE <> "FRAME" AND ObjAtual:TYPE <> "FIELD-GROUP" THEN DO:
  MESSAGE "Objeto: " + ObjAtual:NAME VIEW-AS ALERT-BOX.
  END.
  IF ObjAtual:TYPE = "FRAME" OR ObjAtual:TYPE = "FIELD-GROUP" THEN DO:
  ObjFilho = ObjAtual:FIRST-CHILD NO-ERROR.
  IF ERROR-STAT :ERROR = FALSE THEN DO:
  IF VALID-HANDLE(ObjFilho) THEN DO:
  RUN BuscaWidget(ObjFilho).
  END.
  END.
  END.
  ObjAtual = ObjAtual:NEXT-SIBLING NO-ERROR.
  END.
  ELSE LEAVE.
  END.
 
  IF VALID-HANDLE(ObjOrigem) THEN DO:
  ObjOrigem = ObjOrigem:FIRST-CHILD NO-ERROR.
  IF ERROR-STATUS :ERROR THEN RETURN.
  RUN BuscaWidget(ObjOrigem).
  END.
END PROCEDURE.

Depois basta chamar assim:

RUN BuscaWidget(INPUT CURRENT-WINDOW). /* Para pegar todos os objetos do programa */

RUN BuscaWidget(INPUT FRAME MyFrame). /* Para pegar os objetos que estão dentro do frame chamado MyFrame (Nome de exemplo) */

Abraço

Rafael

No código não é ERROR-STAT, mas sim ERROR-STATUS

Você tentou fazer algo como:

DEFINE VARIABLE b AS widget-handle NO-UNDO.

RUN rep/re0517.w PERSISTENT SET b.

RUN BuscaWidget(INPUT b).
ou
RUN BuscaWidget(INPUT b:THIS-PROCEDURE).
ou
RUN BuscaWidget(INPUT b:CURRENT-WINDOW).

??