Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];

Вниз

Как правильно создать и уничтожить форму   Найти похожие ветки 

 
AndrewK   (2002-01-23 09:54) [0]

Добрый день.

Вопрос такой:

Хочу создать динамически форму, которую принудительно внедряю в панель.

Делаю это так.



public

...
frmCurrent : TForm;
procedure ShowForm (aOwner : TPanel);
procedure CloseForm;

...

end;

procedure TfrmMain.ShowForm (aOwner : TPanel);
begin
frmCurrent.Parent := aOwner;
frmCurrent.Show;
end;

procedure TfrmMain.CloseForm;
begin
frmCurrent.Close;
// !!!
// frmCurrent.Free;
// !!!
frmCurrent.Parent := nil;
end;



В коде по месту создания формы вызываю:



procedure TfrmMain.aNewForm(Sender: TObject);
begin
frmCurrent := TForm1.Create(Self);
ShowForm (pnlWork);
end;

procedure TfrmMain.aClose(Sender: TObject);
begin
CloseForm;
end;



Вопрос в следующем. Форма создается и помещается в панель. Там с ней можно работать. Когда я ее закрываю процедурой CloseForm, то возникают проблемы (закоментированные строки). Я не могу удалить созданную мной форму из памяти методом Free. Работает только Close. Насколько я понимаю Close не удаляет сам объект из памяти а только убирает форму с экрана.

Как мне правильно динамически создать форму, внедрить ее в часть экрана (для чего и использую панель), и правильно удалить и с экрана и из памяти компьютера? Может то что я описал делается как-нибудь по другому?

Заранее благодарен всем отликнувшимся.


 
Alx2   (2002-01-23 10:01) [1]

Сильно не вникал, но, что сразу видно из приведенного:
frmCurrent.Close;
// !!!
// frmCurrent.Free;
// !!!
frmCurrent.Parent := nil;

Если мы уничтожаем форму, а потом обращаемся к ее свойству parent, то ничего, кроме проблем не выйдет.


 
Alx2   (2002-01-23 10:09) [2]

Этот вариант работает. Форма "уходит". Только в ShowForm надо проверить, созданна ли frmCurrent.

procedure TfrmMain.CloseForm;
begin
frmCurrent.Free;
end;


 
AndrewK   (2002-01-23 10:18) [3]

Огромное спасибо. Все работает.

С frmCurrent.Parent := nil; малость лопухнулся.

:)



 
Belov   (2002-01-23 10:19) [4]

Поставь в Обработчике Close
Action:=caFree
Можно сделать и так
if Assigned(frmCurrent) then FreeAndNill(frmCurrent)
вроде бы так



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.005 c
1-18787
Dmitriy_R
2002-01-21 14:11
2002.02.07
Как проще сделать что-бы отображать число 1 в виде 01


14-18982
smuggler
2001-12-19 13:23
2002.02.07
Вирус!


7-19001
Дмитрий Демиденков
2001-10-30 15:46
2002.02.07
Сделать панель такую же, как панель задач в Винде.


6-18940
Pal-nod
2001-11-18 03:45
2002.02.07
1) Установка/удаление IPX 2) Разблокировать панель управления


6-18945
Hawk
2001-11-13 18:49
2002.02.07
Connect между TServerSocket и TClientSocket по сети





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский