Форум: "Основная";
Текущий архив: 2007.03.04;
Скачать: [xml.tar.bz2];

Вниз

Переслать события мыши внизулежашему наследнику 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;

---

← →
StriderMan ©   (2007-01-15 13:00) [3]

> GrayFace ©   (13.01.07 02:28) [2]

Спасибо!!

то что надо!!

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2007.03.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.04 c