Delphi. Трюки и эффекты

Обработчик события OnClose

procedure TfmCaptureImage.FormClose(Sender: TObject;

var Action: TCloseAction);

begin

//восстанавливаем точечный рисунок по умолчанию

if hOldBitmap <> 0 then

SelectObject(hdcCompatible, hOldBitmap);

//удаляем совместимый точечный рисунок

if hbmScreen <> 0 then

DeleteObject(hbmScreen);

//удаляем совместимый контекст устройства памяти

if hdcCompatible <> 0 then

DeleteDC(hdcCompatible);

//удаляем контекст устройства экрана

if hdcScreen <> 0 then

DeleteDC(hdcScreen);

end;