Нельзя присвоить NULL для Handle?

[Browny]

Уважаемые форумчане!
Снова вопрос..
Очень простой код:

Код: Выделить всё

Var hMyWindow:HWND;
Begin
   hMyWindow:= NULL;
  ......


вызывает exception преобразования типов. Что-то странное с описанием типа Variant?

Конечно, можно присвоить 0, но ищу правильный вариант и причину.

[SAK]

THandle = DWord;
HANDLE = System.THandle;
HWND = HANDLE;

В итоге: HWND = DWord;

Ищем описание NULL в модуле variants:
function Null: Variant; // Null standard constant

При компиляции всё проходит, т.к. можно целочисленной переменной присваивать вариантное значение, а вот при выполнении идёт попытка преобразовать ничто (Null) к целочисленному типу, отсюда и ошибка.

[Browny]

Спасибо!
Вопрос, собственно, возник в связи с реализацией в Lazarus'е. Так как уже привык видеть в описании, что такое-то сообщение возвращает результат такой-то, а иначе возвращает NULL.