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

Вниз

Закрытие формы MDIChild программным методом   Найти похожие ветки 

 
Jaxtor   (2002-04-11 11:35) [0]

Подскажите, пожалуйста, как программно закрыть форму MDIChild.
Она создается при нажатии кнопки Create Window типа TButton на
главной форме c помощью конструктора TMDIChildForm.Create(Application).
Нажав на кнопку закрытия окна MDIChild, форма закрывается
с помощью Action:=caFree. А другим способом - например,
чтобы эта форма закрывалась при нажатии на другую кнопку
Close Window типа TButton на главной форме не получается.
Пытался закрыть форму MDIChild вызвав метод, который выполняется при
нажатии кнопки закрытия этого окна :
TMDIChildForm.MDIChildFormClose(Sender,Action).
Выдается ошибка: Types of actual and formal var parameters
must be identical. А метод MDIChildForm.Сlose вызывает исключительную
ситуацию EAccessViolation.


 
Виктор Щербаков   (2002-04-11 11:39) [1]

Close


 
Jaxtor   (2002-04-11 11:42) [2]

Не подходит!
Метод Close Вызывает исключительную ситуацию!!!


 
Alx2   (2002-04-11 11:45) [3]

SomeMDIChild.free?


 
Виктор Щербаков   (2002-04-11 11:49) [4]

Элементарный пример:
1. Генерим с пом. визарда MDI-приложение.
2. Добавляем на панель инструментов кнопку.
3. Добавляем обработчик события OnClick для неё:
procedure TMainForm.Button1Click(Sender: TObject);
begin
ActiveMDIChild.Close;
end;


Запускаем и наслаждаемся.


 
Jaxtor   (2002-04-11 11:51) [5]

Ладно, попробую!
Спасибо.



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

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

Наверх




Память: 0.45 MB
Время: 0.006 c
1-80929
Сатир
2002-04-10 15:04
2002.04.25
Ошибка при создании редакторя свойств


1-80996
Chistyakov
2002-04-12 18:28
2002.04.25
RxTrayIcon


1-80994
Miwa
2002-04-12 11:48
2002.04.25
TP7: Не то чтобы глюк, но все же...


1-80893
vovan13
2002-04-14 18:17
2002.04.25
Как остановить бесконечный цикл?


7-81089
SoftOne
2002-01-30 02:11
2002.04.25
I/O error, 32





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