Скачать: CL | DM;

С чем может быть связан Виолэйшен Акссэс в 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.

---

← →
Andy BitOff ©   (2005-07-22 03:44) [4]

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

---

← →
Юрий Зотов ©   (2005-07-22 06:40) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c