Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.25;
Скачать: CL | DM;

Вниз

Закрытие формы 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
3-80753
nic406
2002-04-04 06:35
2002.04.25
Выборка с VIEW и JOIN(SQL2000) - Помогите новичку!!!


3-80783
ОлегМ
2002-04-03 15:33
2002.04.25
Запрос от результата запроса


3-80742
diMAN
2002-03-29 18:45
2002.04.25
Прогресс-бар при выполнении длительных SQL-запросов


14-81046
lipskiy
2002-03-19 21:45
2002.04.25
По поводу XP и убитого винта - шутка дубль два или что это?


3-80772
alehan
2002-03-15 18:46
2002.04.25
TDateTimeField.EditMask