IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

 
 Ответить  Открыть новую тему 
> Как правильно удалить програмно созданную форму ?
Scorp_Freeman
сообщение 27.04.2007 15:53
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 68
Пол: Мужской
Реальное имя: Сергей

Репутация: -  0  +


Я програмно создал форму след. образом:

Цитата
frmView:=TForm.Create(Application);
with frmView do
begin
frmView.Caption:='Просмотр';
Width:=700;
Height:=500;
ImgView:=TImage.Create(frmView);
with ImgView do
begin
ImgView.Parent:=frmView;
ImgView.Top:=10;
ImgView.Left:=10;
ImgView.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;
frmView.Show;
end;


Этот код я поместил в обычную кнопку.

Вопрос таков:
Как сделать так чтобы эта созданная форма удалялась при ее закрытии ???


объявил я ее как глобальную
Цитата
Form1: TForm1;
frmView:TForm;


Сообщение отредактировано: Scorp_Freeman - 27.04.2007 15:55
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 27.04.2007 17:34
Сообщение #2


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


frmView.Free


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Scorp_Freeman
сообщение 27.04.2007 17:48
Сообщение #3


Пионер
**

Группа: Пользователи
Сообщений: 68
Пол: Мужской
Реальное имя: Сергей

Репутация: -  0  +


Цитата(klem4 @ 27.04.2007 17:34) *

frmView.Free



да, но где это прописать чтобы при нажатии на "крестик" она освободила память ?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 27.04.2007 17:58
Сообщение #4


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


frm := Tfrm.Create(Application);
with frm do try
// настраиваем что нужно
ShowModal;
finally
Free;
end;


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Scorp_Freeman
сообщение 27.04.2007 18:12
Сообщение #5


Пионер
**

Группа: Пользователи
Сообщений: 68
Пол: Мужской
Реальное имя: Сергей

Репутация: -  0  +


спасибо,подходит )
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 13.07.2025 21:17
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"