Переслать события мыши внизулежашему наследнику TControl

← →
StriderMan © (2007-01-12 19:08) [0]

Всем привет!

Помогите красиво решить задачку:

Есть наследник от TControl.
Рисуется в виде Элипса.

Нужно чтобы при любых сообщениях мыши вне эллипса контрол отсылал бы сообщение внизулежашему контролу.
С попаданием в границы эллипса я разобрался, а вот как отправить сообщение дальше? Банально перебрать контролы, преобзовать координаты и отправить? Или есть способ красивее?

Спасибо!

← →
StriderMan © (2007-01-12 19:36) [1]

Частично решил уже задачку. использовал ControlAtPos.

← →
GrayFace © (2007-01-13 02:28) [2]

procedure TMyControl.CMHitTest(var Message: TCMHitTest); begin if В эллипсе then Message.Result := 1 // HTCLIENT else Message.Result := 0; // HTNOWHERE end;

Переслать события мыши внизулежашему наследнику TControl Найти похожие ветки