С чем может быть связан Виолэйшен Акссэс в ScreenToClient ?

← →
Тестер1 (2005-07-22 01:38) [0]

В модуле Controls.pas

function TControl.ScreenToClient(const Point: TPoint): TPoint; var Origin: TPoint; begin Origin := ClientOrigin; // <-- Тут возникаем ошбика Result.X := Point.X - Origin.X; Result.Y := Point.Y - Origin.Y; end;

В событии имеджа OnMouseMove, я делаю этому имеджу ScreenToClient. Но проблема в том, что если быстро дёргать мышью над имеджем, то иногда вылетает Виолэйшен Аксесс вот в этом месте. С чем это может быть связано, и как преодолеть ?

← →
Тестер1 (2005-07-22 01:41) [1]

Кстати, может как нибудь можно без ScreenToClient сделать тоже самое ? Не нравится она мне.

← →
Mx © (2005-07-22 02:11) [2]

> Кстати, может как нибудь можно без ScreenToClient сделать
> тоже самое

А что сделать-то?

← →
Тестер1 (2005-07-22 02:50) [3]

> Mx © (22.07.05 02:11) [2]
>
> > Кстати, может как нибудь можно без ScreenToClient сделать
>
> > тоже самое
>
> А что сделать-то?

Тоже, что делает ScreenToClient.

Ты свой код покажи, там где вызываешь ScreenToClient

Объект не создан, похоже.

С чем может быть связан Виолэйшен Акссэс в ScreenToClient ? Найти похожие ветки