sub ShowListComboBox(ByVal gadget As long, ByVal state As long=0)
Функция показывает или скрывает список ComboBoxGadget
gadget - номер гаджета
state - значение TRUE показывает список; значение FALSE скрывает его
Windows , Linux
#Include "window9.bi"
#Ifdef __FB_WIN32__
Var h = 80
#Else
Var h = 30
#EndIf
OpenWindow("",10,10,300,100)
ComboBoxGadget(1,10,10,100,h)
AddComboBoxItem(1,"Привет0",-1)
AddComboBoxItem(1,"Привет1",-1)
AddComboBoxItem(1,"Привет2",-1)
ButtonGadget(2,150,10,120,25,"Показать список")
Do
   Var event=WaitEvent()
   If event=eventclose Then End
   If event=eventgadget Then
      If EventNumber()=2 Then
         ShowListComboBox(1,TRUE)
      EndIf
   EndIf
Loop

Created with the Personal Edition of HelpNDoc: Free CHM Help documentation generator