Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.028 c
15-1169678879
Octree
2007-01-25 01:47
2007.03.04
Существуют ли аналоги Octree для не ограниченных пространств?


2-1171122427
verywell
2007-02-10 18:47
2007.03.04
if, exit,... что лучше?


1-1168441791
novice007
2007-01-10 18:09
2007.03.04
использование Lame_enc.dll


2-1171266984
sergeyst
2007-02-12 10:56
2007.03.04
Масштабирование


2-1171117959
Golikov
2007-02-10 17:32
2007.03.04
Смена разрешения Экрана!