Событие MouseMove в Image - Общие вопросы Delphi

kion3 · 21.03.2014, 21:26

Здравствуйте! Я хотел бы создать кнопки через Image, то есть в этом Image должна менять картинка, когда я навожу курсором и когда нажимаю. Всё работает. Я сделал это через события MouseUp, MouseDown и MouseMove, всё работает, когда я навожу курсор на мою кнопку (Image) картинка меняется, НО когда я отвожу мышку обратно картинка не меняется на её обычное состояние (события MouseUp). Как сделать чтобы менялась? Прилагаю программу с примером.

XE5 · 21.03.2014, 22:58

MouseUp, это событие отпускания кнопки мыши, а не вывода курсора за пределы Image. В XE и выше за за ввод курсора в пределы Image отвечает событие MouseEnter, за вывод событие MouseLeave. В D7 таких событий нет.

Аватар · 21.03.2014, 23:05

В D7 делай наследника TImage и в нем обработку сообщений CM_MOUSEENTER и CM_MOUSELEAVE

kion3 · 21.03.2014, 23:21

Цитата:

Сообщение от Аватар

В D7 делай наследника TImage и в нем обработку сообщений CM_MOUSEENTER и CM_MOUSELEAVE

То есть мне нужно в type прописать:
protected
procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;

А как процедуру прописывать?

Аватар · 22.03.2014, 00:01

Найти в исходниках контрола где есть соответствующие события и сделать по образу и подобию

kion3 · 22.03.2014, 00:11

Цитата:

Сообщение от Аватар

Найти в исходниках контрола где есть соответствующие события и сделать по образу и подобию

Исходника чего? Контрола?

Не могли бы объяснить где мне найти этот исходник?

Аватар · 22.03.2014, 00:17

В исходниках делфи. Их там море

eval · 22.03.2014, 00:21

Цитата:

В исходниках делфи.

Где ж их взять?

northener · 22.03.2014, 01:17

Цитата:

Сообщение от kion3

То есть мне нужно в type прописать:
protected
procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;

А как процедуру прописывать?

Ну не валяй дурака с переодеваниями, кион-иван. На другом форуме тебе уже все полностью прописали. Что еще нужно?

kion3 · 22.03.2014, 01:24

Цитата:

Сообщение от northener

Ну не валяй дурака с переодеваниями, кион-иван. На другом форуме тебе уже все полностью прописали. Что еще нужно?

Хах, Ивана разоблачили :D Я пытался сделать как мне написали на том форуме и у меня ничего не получилось

Ищу иные пути...... Или вы действительно подумали, что мне нравится писать всюкую ахинею на форумы? :D

21.03.2014, 23:05	#3
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	В D7 делай наследника TImage и в нем обработку сообщений CM_MOUSEENTER и CM_MOUSELEAVE Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

22.03.2014, 00:01	#5
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	Найти в исходниках контрола где есть соответствующие события и сделать по образу и подобию Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

22.03.2014, 00:17	#7
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	В исходниках делфи. Их там море Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Формы С# . Событие MouseMove	Serg94	Помощь студентам	3	04.10.2012 09:49
MouseMove	Ko$	Помощь студентам	0	14.11.2011 16:26
Класс и MouseMove	ZBEP	Общие вопросы Delphi	7	07.04.2011 23:02
MouseMove	muinmy	Помощь студентам	1	28.09.2010 18:05
Реализовать событие Image?	Serg-Grin	Gamedev - cоздание игр: Unity, OpenGL, DirectX	9	21.01.2010 23:55

21.03.2014, 22:58	#2
XE5 Заблокирован Регистрация: 02.03.2014 Сообщений: 439	MouseUp, это событие отпускания кнопки мыши, а не вывода курсора за пределы Image. В XE и выше за за ввод курсора в пределы Image отвечает событие MouseEnter, за вывод событие MouseLeave. В D7 таких событий нет.