[progress Communities] [progress Openedge Abl] Forum Post: Re: Availability Of Widget In A...

[Gunnar.Vogt]

This should get you started: FUNCTION hyGetWidgetByName returns widget-handle ( INPUT pcWidgetName AS character, INPUT phFrameHandle AS handle ) : /* Description ---------------------------------------------------------------*/ /* */ /* returns a widget handle */ /* */ /* Notes ---------------------------------------------------------------------*/ /* */ /* */ /* */ /* Parameters ----------------------------------------------------------------*/ /* */ /* pcWidgetName internal Widget Name */ /* */ /* Examples ------------------------------------------------------------------*/ /* */ /* */ /* */ /*----------------------------------------------------------------------------*/ /* Variables -----------------------------------------------------------------*/ define variable hField as widget-handle no-undo. /*----------------------------------------------------------------------------*/ /* Processing */ /*----------------------------------------------------------------------------*/ assign hField = phFrameHandle hField = hField:first-child /* widget group handle */ hField = hField:first-child /* first child in group */ . do while valid-handle(hField): if hField:Name = pcWidgetName then return hField:handle. hField = hField:next-sibling. end. /* do */ return ?. end function. /* hyGetWidgetByName */

Continue reading...