Чувствительность объектов к перемещениям мыши

← →
MsGuns © (2003-07-03 19:28) [0]

Есть форма и 2 панели, на каждой из которых имеются какие-то визуальные объекты (надписи, рисунки, кнопки - в принципе не важно). Надо сделать так, чтобы при перемещении курсора мыши на панель (в любое место) все ее объекты, к примеру, меняли цвет фона с "темный" на "светлый", а при уходе с панели - меняли с "светлый" на "темный". Т.е. если мышь "летает" мимо обеих панелей, то они темные, а если над одной из них, то она - светлая, а другая - темная. Как это сделать, ведь событий типа OnMouseEnter/OnMouseLeave у TPanel нетути.

Спасибо всем за помощь

← →
Marser © (2003-07-03 20:56) [1]

Может, фиксировать координаты мыши и сравнивать с координатами вершин панелей в OnMouseMove?

← →
Poirot © (2003-07-03 20:59) [2]

> MsGuns ©

а сделать свою панель - как наследника и добавить эти события - не судьба?

← →
MsGuns © (2003-07-04 11:06) [3]

>Poirot © (03.07.03 20:59)
>а сделать свою панель - как наследника и добавить эти события - не судьба?

Именно так - не судьба ;((

И все же, без креаторства никак нельзя ?

>Marser © (03.07.03 20:56)
Блин, перечитал в надцатый (или сятый) раз хэлп и понял, что там не сказано, что контрол был "схвачен" (а я так перевел "captured") мышью, ну в смысле для перетаскивания ;(
Спасибоньки,- попробую

← →
MsGuns © (2003-07-04 11:08) [4]

>Marser © (03.07.03 20:56)
Кстати, как я понял, это событие надо отлавливать для формы, на которой панели ?

← →
Альф © (2003-07-04 12:06) [5]

>ведь событий типа OnMouseEnter/OnMouseLeave у TPanel нетути.

Зато есть у TControl :)
procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER; procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;

>Альф © (04.07.03 12:06)

Я вообще-то догадывался о чем-то подобном ;)) Трабла в том, что у меня нет опыта практического написания наследников, да и вообще с ООП пока еще знаком далеко не на "отлично". "Живые" примеры искать долго, да и не факт, что найдешь то, что нужно, а кОдить надо сегодня и сейчас, и внешние эффекты далеко не самое главное, что требуется от проги. Типичная, увы, картина.

Marser ©, BOA_KAA © - спасибо.

Чувствительность объектов к перемещениям мыши Найти похожие ветки