Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Делфи _ Как правильно удалить програмно созданную форму ?
Автор: Scorp_Freeman 27.04.2007 19:53
Я програмно создал форму след. образом:
Цитата
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;
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;
frmView:TForm;
Автор: klem4 27.04.2007 21:34
frmView.Free
Автор: Scorp_Freeman 27.04.2007 21:48
Цитата(klem4 @ 27.04.2007 17:34) 
frmView.Free
да, но где это прописать чтобы при нажатии на "крестик" она освободила память ?
Автор: klem4 27.04.2007 21:58
frm := Tfrm.Create(Application);
with frm do try
// настраиваем что нужно
ShowModal;
finally
Free;
end;
Автор: Scorp_Freeman 27.04.2007 22:12
спасибо,подходит )