Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.14.253.221] |
|
Сообщ.
#1
,
|
|
|
Начал написание компонента по мативам статьи http://delphinews.ru/booksnet/d3_lib/ch_04.htm
но при закрытии формы с примером получаю ошибку Invalid pointer Что не так? Прикреплённый файлprimer3.zip (3.78 Кбайт, скачиваний: 122) |
Сообщ.
#2
,
|
|
|
Может так ?
destructor TFileDropTarget.Destroy; begin inherited Destroy; end; procedure TFileDropTarget.Unregisrer; var WorkHandle: HWND; begin if (FHandle <> 0) then begin WorkHandle := FHandle; FHandle := 0; ActiveX.CoLockObjectExternal(Self, False, True); ActiveX.RevokeDragDrop(WorkHandle); _Release; end; end; //-------------------------------------------------------------------- procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin FDropTarget.Unregisrer; end; |
Сообщ.
#3
,
|
|
|
Цитата DimaBr @ Может так ? destructor TFileDropTarget.Destroy; begin inherited Destroy; end; procedure TFileDropTarget.Unregisrer; var WorkHandle: HWND; begin if (FHandle <> 0) then begin WorkHandle := FHandle; FHandle := 0; ActiveX.CoLockObjectExternal(Self, False, True); ActiveX.RevokeDragDrop(WorkHandle); _Release; end; end; //-------------------------------------------------------------------- procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin FDropTarget.Unregisrer; end; Оно самое. Спасибо. |