Показать сообщение отдельно
Старый 10.02.2008, 02:11   #11
dimond
Оператор ЭВМ
 
Регистрация: 14.09.2007
Сообщений: 27
Написано 2 полезных сообщений
(для 5 пользователей)
Ответ: очень маленькие хинты

Global Click%
Function MouseClick(n%)
	If MouseDown(n) Then
		Click=True
	EndIf
	If Click=True Then
		If Not MouseDown(n) Then
			If Not MouseHit(n) Then
				Click=False
				Return True
			EndIf
		EndIf
	Else
		Return False
	EndIf
End Function
Функция срабатывает от отпускания мыши, как в windows-кнопках.
Очень удобно, если MouseHit() не всегда срабатывает, а применение MouseDown() неприменимо.
(Offline)
 
Ответить с цитированием
Эти 5 пользователя(ей) сказали Спасибо dimond за это полезное сообщение:
Hagrael (15.06.2011), Harter (25.12.2008), HolyDel (10.02.2008), Nex (22.07.2009), tormoz (10.02.2008)