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

Вниз

О самоуничтожении объекта.   Найти похожие ветки 

 
ZeroDivide ©   (2005-09-27 15:30) [0]

Ситуация следующая. Есть форма которая динамически создает и показывает фрейм

procedure TfmTemplateFramed.ShowFrame(FrameClass: TfrmTemplateMainClass;
 Parent: TWinControl);
...
 FFrame := FrameClass.Create(Self);
...
 FFrame.Parent := Parent;
...


, предроложим что на форме ни каких контролов больше нет и у фрейма Align = alClient. Чтобы закрыть фрем, на нем лежит кнопка bClose

Теперь вопрос в том, как бы по клику на этой кнопке уничтожить фрейм?


 
Desdechado ©   (2005-09-27 15:59) [1]

динамически присвой кнопке внешний обработчик, который считает Sender и освободит твой фрейм


 
umbra ©   (2005-09-27 16:03) [2]

В обработчике нажатия кнопки


(bClose.Parent as TfrmTemplateMainClass).Close


 
Игорь Шевченко ©   (2005-09-27 16:05) [3]


> Теперь вопрос в том, как бы по клику на этой кнопке уничтожить
> фрейм?


Повесить на фрейм обработчик сообщения CM_RELEASE и по клику на кнопке отправлять фрейму это сообщение, по аналогии с TCustomForm.Release.

В обработчике сообщения написать Free;


 
ZeroDivide ©   (2005-09-27 16:25) [4]

по аналогии с TCustomForm.Release
Угу... Я так и сделал. Похоже, единственный метод.



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

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

Наверх




Память: 0.45 MB
Время: 0.031 c
4-1124033378
ArtemESC
2005-08-14 19:29
2005.10.16
Дата создания Link - ом EXEшника


1-1127759926
Flame
2005-09-26 22:38
2005.10.16
задать функцию в приложении delphi


14-1127830512
pazitron_brain
2005-09-27 18:15
2005.10.16
Что вы будете делать?


2-1127120812
Андрей гость
2005-09-19 13:06
2005.10.16
сложный запрос с заменой символов


14-1127824913
Knight
2005-09-27 16:41
2005.10.16
Какая-то чертовщина с ноутбуком...





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский