На этот раз невосстановимой ошибки
программа вернулась в TDW. (Чтобы получить от Windows сообщения
по событию от "мыши", возможно придется нажать клавишу несколько
раз.) На этот раз невосстановимой ошибки не возникает (по крайней
мере пока), поскольку поскольку все, что пока выполнялось, это
вызов Windows функции WMLButtonUp программы TDODEMOB. Отладчик
TDW возвращает вас к первой строке этой функции.
Начните нажимать клавишу F7 для пошагового выполнения прог-
раммы. Когда вы нажмете F7 на вызове MoveTo, то увидите окно со-
общений, в котором выводится "Exeption 13". Вероятно, проблема в
вызове MoveTo.
Отладка MoveTo
-----------------------------------------------------------------
Функция MoveTo работает с пером и текущими координатами кур-
сора x и y. Координаты извлекаются из сообщения Msg, которое при-
ходит от Windows. Если программа не извлекает неверную часть это-
го сообщения (а это не так), то с этими параметрами должно быть
все в порядке.
Местом ошибки должен быть HandleDC - контекст описателя уст-
ройства пера.
В этой точке, поскольку вы имеете две невосстановимых ошиб-
ки, наиболее надежным способом будет выход в TDW и закрытие перед
дальнейшей работой Windows.
Исправление ошибки
-----------------------------------------------------------------
Если причиной невосстановимой ошибки является HandleDC, то
либо описатель (контекста устройства) установлен неверно, либо не
TDeb 3.0 #3-3 = 71 =
устанавливался вовсе. На самом деле он не устанавливался. Прог-
рамма должна инициализировать контекст дисплея с помощью следую-
щего вызова Windows:
HandleDC = GetDC(HWindow);
В приведенном ниже исходном коде показан метод
