Событие onCick для своего класса

@WellSoul · Регистрация: 01.11.2013

Author24 — интернет-сервис помощи студентам

Можно ли для своего класса (без родительского) создать событие onClick или любое другое событие с мышкой?

@TFullControl · 17.11.2017, 20:16

WellSoul, да, нужно обрабатывать сообщения ОС, например WM_LBUTTONDOWN

@WellSoul · 17.11.2017, 20:33 **[ТС]**

TFullControl, а можно пожалуйста небольшой пример

DenNik · 17.11.2017, 22:06

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

Можно ли для своего класса

если ты захочешь создать свой компонент, могущий принимать события мыши, ты будешь (обязан механизмом VCL) наследовать его максимум от TControl или его наследников. а TControl уже реализует данное событие. поэтому какой смысл изобретать велосипед?

ни от TComponent, ни от TPersistent, ни от TObject ты подобное не сделаешь

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

для своего класса (без родительского)

имеешь в виду это?

Delphi

1 2	TMyClass = class end;

ну во-первых, это эквивалентно

Delphi

1 2	TMyClass = class(TObject) end;

а во-вторых, см. выше

@ILinker · 17.11.2017, 22:13

WellSoul, а можно просто в событии OnClick() формы или чего вам нужно вызывать что-то вроде MyObject.OnClick(). Если таких объектов много, то в цикле учитывая перекрытия.

@northener · 18.11.2017, 02:15

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

WellSoul, а можно просто в событии OnClick() формы или чего вам нужно вызывать что-то вроде MyObject.OnClick(). Если таких объектов много, то в цикле учитывая перекрытия.

Это вы об чём собственно?
Вопрос был "можно ли создать", а не "можно ли вызвать". Почувствуйте разницу.

@ILinker · 18.11.2017, 12:47

northener, ну а если у этого класса нет хэндла, то кто будет ловить сообщение?

DenNik · 18.11.2017, 16:45

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

ну а если у этого класса нет хэндла, то кто будет ловить сообщение?

ну во-первых, ловить сообщения мыши можно и без хэндла (TLabel), хэндл появляется только у наследника TControl - TWinControl, а во-вторых, northener прав, вопрос был о другом, а по этому поводу я уже написал выше. а ТС совет - не страдать ерундой, все равно не выстрадаешь

@WellSoul 0 / 0 / 0 Регистрация: 01.11.2013 Сообщений: 20
		1
	Событие onCick для своего класса 17.11.2017, 19:26. Показов 1312. Ответов 7 Метки нет (Все метки) Можно ли для своего класса (без родительского) создать событие onClick или любое другое событие с мышкой? 0

@TFullControl 500 / 346 / 200 Регистрация: 20.10.2016 Сообщений: 1,101
	17.11.2017, 20:16	2
	WellSoul, да, нужно обрабатывать сообщения ОС, например WM_LBUTTONDOWN 0

@WellSoul 0 / 0 / 0 Регистрация: 01.11.2013 Сообщений: 20
	17.11.2017, 20:33 [ТС]	3
	TFullControl, а можно пожалуйста небольшой пример 0

@ILinker Фриланс Pascal/Delphi etc 67 / 73 / 16 Регистрация: 25.11.2016 Сообщений: 263
	17.11.2017, 22:13	5
	WellSoul, а можно просто в событии OnClick() формы или чего вам нужно вызывать что-то вроде MyObject.OnClick(). Если таких объектов много, то в цикле учитывая перекрытия. 0

@northener пофигист широкого профиля 4732 / 3167 / 858 Регистрация: 15.07.2013 Сообщений: 18,251
	18.11.2017, 02:15	6
	Сообщение от ILinker WellSoul, а можно просто в событии OnClick() формы или чего вам нужно вызывать что-то вроде MyObject.OnClick(). Если таких объектов много, то в цикле учитывая перекрытия. Это вы об чём собственно? Вопрос был "можно ли создать", а не "можно ли вызвать". Почувствуйте разницу. 0

@ILinker Фриланс Pascal/Delphi etc 67 / 73 / 16 Регистрация: 25.11.2016 Сообщений: 263
	18.11.2017, 12:47	7
	northener, ну а если у этого класса нет хэндла, то кто будет ловить сообщение? 0

DenNik Житель Земли 3002 / 3004 / 391 Регистрация: 26.07.2011 Сообщений: 11,463 Записей в блоге: 1
	18.11.2017, 16:45	8
	Сообщение от ILinker ну а если у этого класса нет хэндла, то кто будет ловить сообщение? ну во-первых, ловить сообщения мыши можно и без хэндла (TLabel), хэндл появляется только у наследника TControl - TWinControl, а во-вторых, northener прав, вопрос был о другом, а по этому поводу я уже написал выше. а ТС совет - не страдать ерундой, все равно не выстрадаешь 0