Серый форум — АНК: Автоматический ToolBox

Re: АНК: Автоматический ToolBox

null@example.com (Malcev) — Mon, 16 Jan 2017 08:39:44 +0000

stealzy, ваш скрипт у меня глючит - тултип постоянно мигает.
minesemka, пользуйтесь поиском:
http://forum.script-coding.com/viewtopi … 358#p77358

Re: АНК: Автоматический ToolBox

null@example.com (stealzy) — Mon, 16 Jan 2017 00:03:00 +0000

Да, я как раз упомянул это в комментарии выше, когда ты писал ответ.
Если резко не дергать мышь, вполне вариант.

Gui Add, text, HwndCntrl1Hwnd, Move the mouse cursor here
Gui Add, text, HwndCntrl2Hwnd, Do not move cursor here!
Gui Show
; Magic ↓
Array := Object(Cntrl1Hwnd, "You did it!", Cntrl2Hwnd, "You don``t have to do that.")
HowerFn := Func("Hower").bind(Array)
OnMessage(WM_MOUSEMOVE := 0x200, HowerFn)
Return

Hower(ControlsHowerArr, timer := false) {
	MouseGetPos,,,, CurrentControlHwnd, 2
	ToolTip % ControlsHowerArr[CurrentControlHwnd] ? ControlsHowerArr[CurrentControlHwnd] : ""
}

Re: АНК: Автоматический ToolBox

null@example.com (teadrinker) — Sun, 15 Jan 2017 23:59:43 +0000

Так не получится. Если резко убрать курсор с окна, ToolTip останется висеть. И если уж приводить пример, то

minesemka пишет:

Я навожу на определённый элемент управления (ComboBox)

Re: АНК: Автоматический ToolBox

null@example.com (stealzy) — Sun, 15 Jan 2017 23:56:18 +0000

Я говорил, что можно, я не сказал что так сделал, однако ;-).
Ну для тебя, так уж и быть:

Gui Add, text, HwndMyTextHwnd, Move the mouse cursor here
Gui Show,, Test
HowerFn := Func("Hower").bind(MyTextHwnd)
OnMessage(WM_MOUSEMOVE := 0x200, HowerFn)
Return

Hower(MyControlHwnd) {
	MouseGetPos,,,, ControlHwnd, 2
	ToolTip % (ControlHwnd = MyControlHwnd) ? "Ok" : ""
}

В этом случае, если контрол близко к границе окна и курсор резко смещается за границу, окно не получит WM сообщение и тултип останется. Таймер вставлен для подстраховки.
К тому же, таймер, который крутится только при движении мышки над окном, выглядит лучше, чем постоянно крутящийся.

Re: АНК: Автоматический ToolBox

null@example.com (teadrinker) — Sun, 15 Jan 2017 23:44:24 +0000

stealzy пишет:

Можно и без таймера:

stealzy пишет:

SetTimer Hide, -100

Re: АНК: Автоматический ToolBox

null@example.com (stealzy) — Sun, 15 Jan 2017 23:01:56 +0000

Можно и без таймера:

Gui Add, text, HwndMyTextHwnd, Move the mouse cursor here
Gui Show,, Test
HowerFn := Func("Hower").bind(MyTextHwnd)
OnMessage(WM_MOUSEMOVE := 0x200, HowerFn)
Return

Hower(MyControlHwnd, timer := false) {
	MouseGetPos,,,, ControlHwnd, 2
	if (ControlHwnd = MyControlHwnd) {
		if !timer {
			ToolTip Ok
			HowerTimerFn := Func("Hower").bind(MyControlHwnd, true)
			SetTimer % HowerTimerFn, -100
		}
	} else
		ToolTip
}

Реальный пример смотрите в скрипте VirusTotal HashChecker. Запустите и поводите курсором.
Строки 93,94 и 169-219.

Re: АНК: Автоматический ToolBox

null@example.com (ypppu) — Sun, 15 Jan 2017 21:03:15 +0000

Это принято называть "всплывающая подсказка" (ToolTip). Реализуется так: командой MouseGetPos периодически проверяется элемент управления под курсором. Потом сопоставляется этот ЭУ по ClassNN или другому признаку с массивом, в котором содержится перечень всех нужных ЭУ и соответствующие подсказки. Далее выводится подсказка командой "ToolTip". Этой же командой можно убрать подсказку, когда под курсором нет ЭУ.

АНК: Автоматический ToolBox

null@example.com (minesemka) — Sun, 15 Jan 2017 20:46:41 +0000

Здравствуйте, не могли бы вы мне подсказать как сделать автоматический ToolBox.

Пример:
Я навожу на определённый элемент управления (ComboBox) и через 1 секунду у меня появляется "Подсказка" для чего этот Бокс нужен и что туда писать, но когда я убираю мышку с элемента управления "Подсказка" исчезает.

Подскажите как это всё реализовать! (Лучше готовый код/пример).

Заранее спасибо!