Текущий архив: 2007.03.04;
Скачать: CL | DM;
Вниз
Переслать события мыши внизулежашему наследнику 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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.041 c
