Указатель мыши над контролом... [D7]
Страницы:
<
1
2
3
>
TrainerOfDolphins © (2006-10-02 14:27:00)
День добрый!
Хотел написать функцию, которая будет проверять находится ли
курсор мыши над данным контролом или нет.
function
CursorIsUnderControl(ParentControl,ChildControl:TWidgetControl):boolean;
var
c: TControl;
p: TPoint;
BEGIN
p := Mouse.CursorPos;
p := ParentControl.ScreenToClient(p);
c := ParentControl.ControlAtPos(p, true, true);
if c=ChildControl
then Result:=true;
END;
Но она почему-то всегда возвращает False;
ParentControl.ControlAtPos(p, true, true) возвращает nil,
хотя не должен...
Где у меня ошибка?
Спасибо
Elen (2006-10-02 14:45:00) [41]
> TrainerOfDolphins
А где и когда она вызывается? Вообще лучше пропиши
OnMouseMove...
Страницы:
<
1
2
3
>
Наверх 
ЧАТ |
Орешник |
|
