Что нового

[Элементы GUI] Включение и отключение отображения GUICtrlSetTip

Pavel

Новичок
Сообщения
125
Репутация
3
Здравствуйте.
Задача сделать через чекбокс включение/отключение ToolTip'ов для элементов программы. Поставил "флажок" - тултипы не отображаются. Убрал "флажок" - отображаются.

Значения GuiCtrlSetState $GUI_HIDE и $GUI_DISABLE ничего не дали.
Как сию задачу можно выполнить?
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
Pavel,
Попробуйте так.
Код:
#include <GUIConstantsEx.au3>

Dim $aBut[11] = [10]
Dim $aToolTip[11] = [10]

GUICreate('Test', 170, 440)
$nCheckBox = GUICtrlCreateCheckbox('Подсказка', 35, 10, 100, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
For $i = 1 To $aBut[0]
	$aToolTip[$i] = 'Подсказка № ' & $i
	$aBut[$i] = GUICtrlCreateButton('Test ' & $i, 35, 40 + ($i - 1) * 40, 100, 30)
	GUICtrlSetTip(-1, $aToolTip[$i])
Next
GUISetState()

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $nCheckBox
			If BitAND(GUICtrlRead($nCheckBox), $GUI_CHECKED) Then
				For $i = 1 To $aBut[0]
					GUICtrlSetTip($aBut[$i], $aToolTip[$i])
				Next
			Else
				For $i = 1 To $aBut[0]
					GUICtrlSetTip($aBut[$i], '')
				Next
			EndIf
		Case $aBut[1] To $aBut[$aBut[0]]
			MsgBox(64, 'Info', 'Нажата кнопка "' & GUICtrlRead($nMsg) & '"')
	EndSwitch
WEnd
 
Верх