Переменная TBitmap, поочередное присвоение значений других переменных этого типа

[Женя32]

Здравствуйте!
Задача такая:
Есть PageControl с двумя вкладками. Нужно чтоб в PaintBox1 отображалась картинка, в зависимости от активной вкладки.
Картинки хранятся в двух переменных, vbmapFs и vbmapRs: TBitmap;

Я пытался делать так, но, при закрытии программы, выходит ошибка:

 if PageControl1.ActivePageIndex = 0 then vbmap:=vbmapFs else vbmap:=vbmapRs;
............
with PaintBox1 do begin
    Width  := nw;
    Height := nh;
    Canvas.Lock;
    // Задать режим масштабирования со сглаживанием
    SetStretchBltMode(Canvas.Handle, HALFTONE);
    // Скопировать картинку с масштабированием
    StretchBlt(Canvas.Handle, 0, 0, Width , Height, vbmap.Canvas.Handle,
               0, 0, vbmap.Width , vbmap.Height, SRCCOPY);
    Canvas.Unlock;
  end;

Подскажите, пожалуйста, почему выскакивает эта ошибка?

[northener]

Что вы делаете при закрытии программы?
Например такая ошибка возникает при попытке уничтожения объекта более одного раза.

[Женя32]

Сообщение от northener

Что вы делаете при закрытии программы?
Например такая ошибка возникает при попытке уничтожения объекта более одного раза.

Т.е., не нужно прописывать переменную vbmap в Destroy?

procedure TForm1.FormDestroy(Sender: TObject);
begin
  vbmapFs.Destroy;
  sbmapFs.Destroy;
  vbmapRs.Destroy;
  sbmapRs.Destroy;
  vbmap.Destroy;
end;

[Serge_Bliznykov]

да. удали

Сообщение от Женя32

vbmap.Destroy;

[northener]

Сообщение от Женя32

Т.е., не нужно прописывать переменную vbmap в Destroy?

Лично я вообще не вижу смысла в написании события обработчика TForm.OnDestroy.
OnDestroy нужен в самописных компонентах/объектах. Но не в оконном TForm.

[Serge_Bliznykov]

Сообщение от northener

Лично я вообще не вижу смысла в написании события обработчика TForm.OnDestroy.

а если объекты созданы вручную (программистом) в TForm.FormCreate(),
то где их освобождать? Разве TForm.FormDestroy() не наиболее подходящий метод?

[northener]

Сообщение от Serge_Bliznykov

если объекты созданы вручную (программистом) в TForm.FormCreate(),
то где их освобождать? Разве TForm.FormDestroy() не наиболее подходящий метод?

Ну да, ну да. Именно это и написано в справке ещё Д1.
Вот только я не вижу смысла в TForm.FormCreate() создавать объекты с владельцем nil. А именно в этом и только в этом случае их нужно удалять ручками в TForm.FormDestroy(). Если же указать владельцем саму форму (ну это как бы должно являться нормой), то они удалятся автоматом как члены списка Components.

[Аватар]

А объекты вообще без владельца? Bitmap тот же. Или явно захваченная память?

[northener]

Сообщение от Аватар

А объекты вообще без владельца? Bitmap тот же. Или явно захваченная память?

Ну тоже "ну да, ну да".
Для объектов создаваемых в OnCreate главной формы, имхо, нет необходимости ручками уничтожать их. Память им выделенная всё равно вернётся в ОС.
А у ТС похоже речь идёт именно о главной форме.

В неглавной/вторичной форме действительно нужно уничтожать такие объекты ручками, если эта форма создается и уничтожается неоднократно при работе приложения.

Но во-первых много ли вы вспомните примеров таких вторичных форм? А во-вторых почему именно OnDestroy, а не OnClose?

Не ну я ни в коем разе не возражаю против существования метода OnDestroy у TForm. Лишняя соломка не повредит.

[BLACK_RAIN]

Сообщение от northener

Для объектов создаваемых в OnCreate главной формы, имхо, нет необходимости ручками уничтожать их. Память им выделенная всё равно вернётся в ОС.

То есть, создаем в OnCreate кучу объектов без владельца и уничтожать их потом не нужно? Это как так?