Sub DisableToolTip(ByVal gadget As Long, ByVal state As long)
Отключает(включает) всплывающую подсказку
gadget - номер гаджета
state - флаг, может быть:
1 - disable
0 - enable
Windows , Linux
#Include "window9.bi"
OpenWindow("",10,10,400,100)
StringGadget(1,10,10,100,20)
ButtonGadget(2,120,10,100,20,"disable")
ButtonGadget(3,230,10,100,20,"enable")
GadgetToolTip(1,"это строковой гаджет",4)
Do
var event=WaitEvent()
If event=eventclose Then End
If event=eventgadget Then
If eventnumber()=2 Then
DisableToolTip(4,1)
ElseIf eventnumber()=3 Then
DisableToolTip(4,0)
EndIf
EndIf
Loop
Created with the Personal Edition of HelpNDoc: Easily create EBooks