[madmasles]

Smokie_id11243755,
ToolTip('')

Код:

$timeout = TimerInit()
ToolTip('Test tooltip', 0, 0)
While 1
    If TimerDiff($timeout) >= 3000 Then
        ToolTip('')
        ExitLoop
    EndIf
    Sleep(10)
WEnd
Sleep(1000)
MsgBox(0, '', 'Нет tooltip`a')

[Smokie_id11243755]

блин, мог бы и догадаться) спасибо

оффтоп... извиняюсь, а можно какнить сделать чтобы tooltip отображался несколько секунд и исчезал но скрипт при этом не останавливался

[Creat0R]

а можно какнить сделать чтобы tooltip отображался несколько секунд и исчезал но скрипт при этом не останавливался »

А почему скрипт должен останавливаться?

[Smokie_id11243755]

Код:

$timeout = TimerInit()
While 1
    If TimerDiff($timeout) >= 3000 Then
    ExitLoop

Скрипт же на 3 секунды приостанавливается при этом и продолжает действия только после закрытия тултипа, а мне бы хотелось видеть тултип секунд 30, но чтобы при этом скрипт продолжал свои действия.

И вообще показалось это можно было тупо так записать

Код:

ToolTip('Test tooltip', 0, 0)
Sleep(3000)
ToolTip('')
MsgBox(0, '', 'Нет tooltip`a')

разве есть разница?

[madmasles]

Smokie_id11243755,
Я ведь специально не через Sleep(), а через TimerInit() - TimerDiff() сделал. Я думал, что Вы догадаетесь вставить

Код:

If TimerDiff($timeout) >= 30000 Then ToolTip('')

в нужное место Вашего кода. Я же не знаю, что Вы за программу пишете и что она делает.

[Smokie_id11243755]

сорри
но для реализации таким способом как я понял обязательно нужен цикл... а как быть, если программа, в которую я хочу это вставить - не цикл?

[Iska]

Вызываете ToolTip, затем сразу AdlibRegister с заданным временем показа всплывающей подсказки. В функции, указанной первым параметром в AdlibRegister(), убираете подсказку и отменяете новые вызовы функции посредством AdlibUnRegister.

[Creat0R]

Код:

_ToolTipEx("My Tooltip", Default, Default, "Tooltip", 1, 5, 3000)

Sleep(5000)

Func _ToolTipEx($sText, $iX = Default, $iY = Default, $sTitle = Default, $iIcon = Default, $iOptions = Default, $iTimeOut = 0)
    Local $sFuncName = "_ToolTipEx"

    If @NumParams = 0 Then
        ToolTip("")
        AdlibUnRegister($sFuncName)
        Return
    EndIf

    ToolTip($sText, $iX, $iY, $sTitle, $iIcon, $iOptions)
    AdlibRegister($sFuncName, $iTimeOut)
EndFunc

[madmasles]

Creat0R,
SciTE ругается: ERROR: _ToolTipEx() called with wrong number of args. и т.д., тем не менее функция работает и из SciTE, и скомпилированная.