Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Название темы: Всплывающее окно
Показать сообщение отдельно

Аватара для Sp01LeR

Пользователь


Сообщения: 60
Благодарности: 13

Профиль | Отправить PM | Цитировать


Вот такой простенький пример реализации появления подказки над треем, если мышь переместить в верхний правый угол экрана:

Код: Выделить весь код
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)

$header4ttip="Заголовок"
$txt4ttip="Это текст первой строки содержится внутри вплывающей подсказки"&@LF&@LF&"А это уже текст для третьей строки"

$mxmin=@DesktopWidth-20
$mymin=0
$mxmax=@DesktopWidth
$mymax=20

$Form1 = GUICreate("Form1", 193, 105, @DesktopWidth - 194, @DesktopHeight-137, BitOR($WS_POPUP,$WS_BORDER), $WS_EX_TOOLWINDOW)
GUISetBkColor(0xFFFFE1)
GUISetOnEvent($GUI_EVENT_CLOSE, "exit_gui")
$hd_lab = GUICtrlCreateLabel($header4ttip, 6, 2, 87, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$txtlabel = GUICtrlCreateLabel($txt4ttip, 6, 24, 179, 78)
GUICtrlSetOnEvent(-1, "txtlabelClick")
GUISetState(@SW_HIDE)

While 1
	$mpos=MouseGetPos()
ToolTip("х="&$mpos[0]&" y="&$mpos[1], 0, 0)
	If $mpos[0] >= $mxmin And $mpos[0] <= $mxmax And $mpos[1] >= $mymin And $mpos[1] <= $mymax Then
		GUISetState(@SW_SHOW)
	Else
		GUISetState(@SW_HIDE)
	EndIf
	$mpos=false
	Sleep(25)
Wend


Func exit_gui()
	Exit
EndFunc
ЗЫ:
Цитата wwe:
из-за горизонта экрана появлялася всплывающая »
- это в принципе можно реализовать с помощью WinMove(), но эта функция ведет себя очень странно...
Это сообщение посчитали полезным следующие участники:

Отправлено: 17:41, 12-02-2010 | #2

Название темы: Всплывающее окно