Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо