FreeGadget

Синтаксис

Sub FreeGadget(ByVal gadget As Long)

Описание

Удаляет гаджет и освобождает ресурсы памяти

Параметры

gadget - номер гаджета

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As integer event
OpenWindow("1",300,10,250,150)
ButtonGadget(1,10,10,80,80,"click!")
Do
  event=WaitEvent()
  If event=EventClose Then End
  If event=eventgadget Then
     FreeGadget(1)
  EndIf
Loop

Created with the Personal Edition of HelpNDoc: Full featured Documentation generator