SetToolTipText

Синтаксис

Sub SetToolTipText(ByVal parentGadget as long, ByVal gadget As Long, ByRef text As String)

Описание

Позволяет вставлять\изменять текст в GadgetToolTip

Параметры

parentGadget - гаджет, для которого установлена подсказка

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

text - любой текст

Платформы

Windows , Linux

Пример

#Include "window9.bi"
OpenWindow("",10,10,400,100)
StringGadget(1,10,10,200,20)
ButtonGadget(2,220,10,120,20,"Изменить текст")
GadgetToolTip(1,"это строковой гаджет",3)
Do
  var event=WaitEvent()
  If event=eventclose Then End
  If event=eventgadget Then
     If eventnumber()=2 Then
        SetToolTipText(1,3,"Измененный текст")
     EndIf
  EndIf
Loop

Результат

Created with the Personal Edition of HelpNDoc: Easily create Help documents