DELETE WIDGET statement


DELETE WIDGET `handle` [ `handle` ] ...

In the following example, the DELETE WIDGET statements deletes the dynamic button that you select:

r-delwid.p
DEFINE VARIABLE wh-tmp AS HANDLE NO-UNDO. DEFINE VARIABLE ix AS INTEGER NO-UNDO. DEFINE BUTTON b_quit LABEL "Quit" AUTO-ENDKEY. DEFINE BUTTON b_make LABEL "Make Buttons". DEFINE FRAME butt-frame b_make b_quit WITH CENTERED ROW 2. DEFINE FRAME new-buttons WITH WIDTH 48 CENTERED TITLE "New Buttons". FRAME new-buttons:HEIGHT-CHARS = 3. ON CHOOSE OF b_make IN FRAME butt-frame DO: DISABLE b_make WITH FRAME butt-frame. DO ix = 1 TO 10: CREATE BUTTON wh-tmp ASSIGN FRAME = FRAME new-buttons:HANDLE COLUMN = ix * 4 LABEL = STRING(ix) SENSITIVE = TRUE VISIBLE = TRUE TRIGGERS: ON CHOOSE PERSISTENT RUN del-self. END. END. END. ENABLE b_make b_quit WITH FRAME butt-frame. WAIT-FOR CHOOSE OF b_quit IN FRAME butt-frame. PROCEDURE del-self: IF SELF:PREV-SIBLING = ? AND SELF:NEXT-SIBLING = ? THEN DO: HIDE FRAME new-buttons. ENABLE b_make WITH FRAME butt-frame. END. MESSAGE "Deleting Widget, Button" SELF:LABEL. DELETE WIDGET SELF. END PROCEDURE.

r-delwid.p

DEFINE VARIABLE wh-tmp AS HANDLE  NO-UNDO. 
DEFINE VARIABLE ix     AS INTEGER NO-UNDO. 
DEFINE BUTTON b_quit LABEL "Quit" AUTO-ENDKEY. 
DEFINE BUTTON b_make LABEL "Make Buttons". 
DEFINE FRAME butt-frame b_make b_quit 
  WITH CENTERED ROW 2. 
DEFINE FRAME new-buttons  
  WITH WIDTH 48 CENTERED TITLE "New Buttons". 
FRAME new-buttons:HEIGHT-CHARS = 3. 
ON CHOOSE OF b_make IN FRAME butt-frame DO: 
  DISABLE b_make WITH FRAME butt-frame. 
  DO ix = 1 TO 10: 
    CREATE BUTTON wh-tmp ASSIGN 
      FRAME     = FRAME new-buttons:HANDLE 
      COLUMN    = ix * 4 
      LABEL     = STRING(ix) 
      SENSITIVE = TRUE 
      VISIBLE   = TRUE 
      TRIGGERS: 
        ON CHOOSE  
          PERSISTENT RUN del-self. 
      END. 
  END. 
END. 
ENABLE b_make b_quit WITH FRAME butt-frame. 
WAIT-FOR CHOOSE OF b_quit IN FRAME butt-frame. 
PROCEDURE del-self: 
  IF SELF:PREV-SIBLING = ? AND SELF:NEXT-SIBLING = ? THEN DO: 
    HIDE FRAME new-buttons. 
    ENABLE b_make WITH FRAME butt-frame. 
  END. 
  MESSAGE "Deleting Widget, Button" SELF:LABEL. 
  DELETE WIDGET SELF. 
END PROCEDURE.

If you do not explicitly delete a dynamically created widget, it is deleted when its widget pool is deleted. If you do not create a new unnamed widget pool and do not explicitly specify a named widget pool when you create the widgets, all dynamic widgets are placed in the session pool. The session pool is not deleted until the ABL session that created it ends.

If handle refers to a control-frame, any ActiveX control associated with the widget is also deleted. For more information on ActiveX support in ABL, see OpenEdge Development: Programming Interfaces.

For SpeedScript, use with buffer-field, buffer-object, buffer, and query-object handles.