Показать сообщение отдельно
Старый 02.10.2014, 10:40   #2 (permalink)
poiu
Member
 
Регистрация: 05.03.2014
Сообщений: 200
Сказал(а) спасибо: 2
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 834
По умолчанию

onClick делаем вызов закрытия (close1), а на onClose делаем освобождение памяти картинки
Код:
procedure TForm8.close1(Sender: TObject);
begin
Close;
end;

procedure TForm8.FormClose(Sender: TObject; var Action: TCloseAction);
begin
img1.Free;
end;
poiu вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070