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

Вниз

В каком случае выполняется событие OnShow при создании формы?   Найти похожие ветки 

 
Denis ©   (2004-08-11 13:35) [0]

Сегодня пришлось переделывать форму под иные справочники,оставив старый интерфейс. Сделал копию файлов исходной формы, обработал и подключил в проект, причем код не изменял - только запросы и все вытекающее...
Для открытия формы выполняю следующий код:
if fmMatCardM = nil
then
 try
  Application.CreateForm(TfmMatCardM, fmMatCardM);
 except
   On E:Exception do ShowMessage("Невозможно выполнить команду!");
 end;
fmMatCardM.TreeFlag:=true;
fmMatCardM.FormStyle:=fsMDIChild;

Так вот при Create начинает выполняться событие OnShow, что в данном случае при TreeFlag = false приводит к AV.

А вот код вызова исходной формы:
if fmMatCard = nil
then
try
 Application.CreateForm(TfmMatCard, fmMatCard);
except
   On E:Exception do ShowMessage("Невозможно выполнить команду!");
end;
fmMatCard.TreeFlag:=true;
fmMatCard.FormStyle:=fsMDIChild;

Здесь Create выполняется БЕЗ обработки OnShow.
Что может быть причиной этой разницы?


 
Ega23 ©   (2004-08-11 13:42) [1]

Application.CreateForm(TfmMatCard, fmMatCard);

Application.CreateForm(TfmMatCardM, fmMatCardM);

Классы разные.


 
Плохиш ©   (2004-08-11 13:43) [2]

>Denis ©   (11.08.04 13:35)

Начинаем гадать: Visible у fmMatCardM = true?


 
Denis ©   (2004-08-11 13:59) [3]

>Плохиш ©  
черт... true
я его ставил false при FormStyle=fsMDIChild  - тот же эффект был и я его оставил в покое. А при fsNormal - все работает как надо
Спасибо.



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

Текущий архив: 2004.08.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.084 c
3-1091651790
Li
2004-08-05 00:36
2004.08.29
SQL-запрос для IB


1-1092464595
Андрей007
2004-08-14 10:23
2004.08.29
Помогите, пожалуйста, перевести кусок код с Си на Pascal.


14-1092203014
peypivo
2004-08-11 09:43
2004.08.29
И как после такого руки не отсыхают?


4-1090222728
pavel_guzhanov
2004-07-19 11:38
2004.08.29
Com Port


14-1091940469
Григорьев Антон
2004-08-08 08:47
2004.08.29
Нужно ли бороться с хинтами и ворнингами?