sproxy
Full Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
araneon 15:00 09-03-2009
Цитата:| Всем привет. Подскажите такую штуку, вот есть меню в трее с программами, можно ли как прикрутить к нему всплывающие подсказки. Типа допустим в списке программ навожу мышкой на калькулятор и через секунду всплывает подсказка, мол "Это калькулятор" ??? |
Код: #region: - Include
#include <GUIComboBox.au3>
#include <GUIConstantsEx.au3>
;~ #include <WindowsConstants.au3>
#endregion
#region: - Option
Opt('GUIOnEventMode', 1)
Opt('MustDeclareVars', 1)
Opt('TrayIconDebug', 0)
Opt('TrayIconHide', 0)
Opt('TrayMenuMode', 1)
Opt('TrayOnEventMode', 1)
#endregion
#region: - Global
Global $hWinMain, $hCombo, $hLabel
#endregion
#region: - Tray
TrayCreateItem('Exit')
TrayItemSetOnEvent(-1, '_Pro_Exit')
#endregion
#region: - GUI
$hWinMain = GUICreate('Test', 400, 400, -1, -1)
GUISetIcon('shell32.dll', -50)
GUISetOnEvent($GUI_EVENT_CLOSE, '_Pro_Exit')
GUICtrlCreateButton('Exit', 10, 50, 150, 25)
GUICtrlSetOnEvent(-1, '_Pro_Exit')
$hCombo = GUICtrlCreateCombo('', 10, 80, 150, 25, $CBS_DROPDOWNLIST)
GUICtrlSetData(-1, 'Часы|Открытки|Конверты|Денги|Документы', 'Часы')
GUICtrlSetOnEvent(-1, '_Tray_Set_Tip')
$hLabel = GUICtrlCreateLabel('Текст подсказки: ' & GUICtrlRead($hCombo), 10, 110, 250, 25)
#endregion
#region: - После создания всех GUI
_Tray_Set_Tip()
GUISetState(@SW_SHOW, $hWinMain)
#endregion
#region: - Sleep, Exit
While 1
Sleep(10)
WEnd
Func _Pro_Exit()
Exit
EndFunc
#endregion
Func _Tray_Set_Tip()
TraySetToolTip(GUICtrlRead($hCombo))
GUICtrlSetData($hLabel, 'Текст подсказки: ' & GUICtrlRead($hCombo))
EndFunc |
|
любимый, но реклама достала 
