![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
С чем может быть связан Виолэйшен Акссэс в ScreenToClient ? [D7]
Тестер1 © (2005-07-22 01:38:00)В модуле 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. Но проблема в том, что если быстро дёргать мышью над имеджем, то иногда вылетает Виолэйшен Аксесс вот в этом месте. С чем это может быть связано, и как преодолеть ?
Юрий Зотов (2005-07-22 06:40:00) [1]Объект не создан, похоже.
Andy BitOff (2005-07-22 03:44:00) [2]Ты свой код покажи, там где вызываешь ScreenToClient
Тестер1 (2005-07-22 02:50:00) [3]
> Mx © (22.07.05 02:11) [2]
>
> > Кстати, может как нибудь можно без ScreenToClient сделать
>
> > тоже самое
>
> А что сделать-то?
Тоже, что делает ScreenToClient.
Mx (2005-07-22 02:11:00) [4]
> Кстати, может как нибудь можно без ScreenToClient сделать
> тоже самое
А что сделать-то?
Тестер1 (2005-07-22 01:41:00) [5]Кстати, может как нибудь можно без ScreenToClient сделать тоже самое ? Не нравится она мне.