Главная страница
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.049 c
4-1161439978
#0FFFF
2006-10-21 18:12
2007.03.04
GetFileVersionInfo


15-1170915853
wHammer
2007-02-08 09:24
2007.03.04
Ассемблер это что? Компилятор/интерпритатор/нечто уникальное?


2-1171353513
Lacky Star
2007-02-13 10:58
2007.03.04
ExcelApplication


2-1171190317
vasIZmax
2007-02-11 13:38
2007.03.04
Глупый вопрос..._2


2-1171439156
Lex_!
2007-02-14 10:45
2007.03.04
Выполнение кода реалтайм....