| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Переслать события мыши внизулежашему наследнику TControl
StriderMan © (2007-01-12 19:08:00)Всем привет!
Помогите красиво решить задачку:
Есть наследник от TControl.
Рисуется в виде Элипса.
Нужно чтобы при любых сообщениях мыши вне эллипса контрол отсылал бы сообщение внизулежашему контролу.
С попаданием в границы эллипса я разобрался, а вот как отправить сообщение дальше? Банально перебрать контролы, преобзовать координаты и отправить? Или есть способ красивее?
Спасибо!
StriderMan (2007-01-15 13:00:00) [1]
> GrayFace © (13.01.07 02:28) [2]
Спасибо!!
то что надо!!
GrayFace (2007-01-13 02:28:00) [2]
procedure TMyControl.CMHitTest(var Message: TCMHitTest);
begin
if В эллипсе then
Message.Result := 1 // HTCLIENT
else
Message.Result := 0; // HTNOWHERE
end;
StriderMan (2007-01-12 19:36:00) [3]Частично решил уже задачку. использовал ControlAtPos.
| |
