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

[northener]

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

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

Да так. Уничтожение объекта есть не что иное как освобождение памяти выделенной ОС для этого объекта. Но при завершении работы приложения вся память выделенная ему ОС освобождается автоматом.

P.S. Это ответ практика.
Ведь как правило в OnCreate главной формы создаются объекты, которые должны жить до окончания работы приложения.

[BLACK_RAIN]

как-то это бестолково немного получается.
Открыл кран, ушел (не закрыл) - квартиру затопило.

[northener]

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

как-то это бестолково немного получается.
Открыл кран, ушел (не закрыл) - квартиру затопило.

Смысла нет отключать воду в одной квартире, если в момент вашего ухода исчезает из бытия весь дом, город, страна, планета, звездная система, галактика, etc. Нечего затапливать. Да и нечем затапливать, ибо одновременно из бытия исчезает и вода тоже.

[Heneken87]

Сообщение от Женя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;

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

Если вернуться к теме разговора.
Подобная ошибка, так -же может выскакивать если вы пытаетесь уничтожить объект у которого уже уничтожен родитель, а дети по какой то причине остались целы, либо был уничтожен класс где этот объект был зарегистрирован.
К примеру:

TMyForm= class(TForm)
private
  FBitMap1: TBitmap;
  FBitMap2: TBitmap;
end
var
  MyForm: TMyForm;

Очистка следующего рода даст Вашу ошибку:

  FreeAndNil(MyForm)
  FreeAndNil(FBitMap1) //<-- Вот тут получим ошибку, поскольку объекта MyForm, уже не существует. Но сам FBitMap1 продолжает занимать место в памяти и там реально лежит картинка
  FreeAndNil(FBitMap2) //<-- А до сюда уже не дойдет

А Вот так, уже не будет ошибки:

  FreeAndNil(FBitMap1)
  FreeAndNil(FBitMap2) 
  FreeAndNil(MyForm)

Это ооочень условный пример. northener Вам уже писал про наследтственность Components и.т.д. Я Вам посоветую включить следующее:
Project - View Sorce

 Application.Initialize;
  ReportMemoryLeaksOnShutdown := True;
  Application.MainFormOnTaskbar := False;
  Application.CreateForm(TВАША ФОРМА, ВАША ФОРМА);
  Application.Run;

Это включит оповещение о утечке памяти и покажет, что не очищено. Может помочь разобраться в каком месте кода искать проблему.
Чтобы решить вашу задачу, нужно видеть как вы реализовали создание объектов и как реализовано их уничтожение. Чтобы проследить наследственность - если она есть разумеется. Причина ошибки может быть как в ваших TBitMap так и в другом.
P:S: Я отчасти согласен с northener, про тему вселенных =). Но если Вы решили программировать, то посоветую разобраться с этой ошибкой, найти и исправить, а не забить болт на вселенную не разобравшись =))).

Для вашего случая с 1 формой это вообще не критично, но в больших проектах подход (мусорю как хочу, все равно при смерти процесса все вычистится) не допустимо.
У меня в свое время была точно такая же ошибка, связанная с битмапами. Проблема была в том, что я с начало уничтожил класс где они были зарегистрированы, а потом стал уничтожать сами TBitMap. И Алегоп -ошибка. TBitMap уничтожать надо обязательно, имхо его создание TBitMap.Create. И он не уничтожиться Сам, если будет уничтожен класс, где он был создан.
Для классов типа TPanel. Даже если вы создаете их динамически, прописывать уничтожение не нужно. Если создавать TPanel.Create(Form1). Панель сама уничтожиться в событии Form.Destroy. Если создадите TPanel.Create(nil), то очищать нужно. Иначе будет утечка.
Это я так, подытожил все написаное тут =))