Что нового

как открыть развернуть окно скрипта двойным кликом мыши по иконке в трее?

agikon

Знающий
Сообщения
789
Репутация
16
всех форумчан с праздниками!

подскажите пожалуйста.
 

Zaramot

I ♥ AutoIt
Сообщения
1 160
Репутация
658
Код:
Opt("TrayOnEventMode",1) ;Включить / выключить функции уведомления OnEvent для трея.
Opt("TrayMenuMode",1) ;Отключаем стандартное меню.

GUICreate("Form1", 627, 436)
TraySetOnEvent(-13, 'Show') ;Определяет пользовательскую функцию.
GUISetState(@SW_HIDE)

Do
Until GUIGetMsg() = -3

;Функция отображения GUI окна.
Func Show()
	GUISetState(@SW_SHOW)
EndFunc


-13 - это $TRAY_EVENT_PRIMARYDOUBLE, взято из библиотеке Constants.au3.
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
agikon,
Мой вариант.
Код:
#include <Constants.au3>
#include <GuiConstantsEx.au3>

Opt('TrayOnEventMode', 1)
Opt('TrayMenuMode', 1)

$hGui = GUICreate('Test', 300, 300)
_ShowHide()
TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE, '_ShowHide')
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

Func _ShowHide()
	If BitAND(WinGetState($hGui), 2) Then
		GUISetState(@SW_HIDE, $hGui)
		TraySetToolTip('Двойной клик - показать окно')
	Else
		GUISetState(@SW_SHOW, $hGui)
		TraySetToolTip('Двойной клик - скрыть окно')
	EndIf
EndFunc   ;==>_ShowHide
 
Автор
A

agikon

Знающий
Сообщения
789
Репутация
16
Zaramot
madmasles

спасибо!
 
Верх