[delphicoding]

Здравствуйте!
Столкнулся с тупейшей проблемой не могу решить уже два дня -есть главное окно программы MDIForm, из него по нажатию батона создаётся новое окно MDIChild:

Код:

begin
//   Fx:=Formx.Create(self);
   Fx:=Formx.Create(Application);
   Fx.Varx:=1;
   Fx.Show;
end;

В создаваемом окне есть переменная

Код:

public
    Varx: Integer; // variant, boolean

на событие OnCreate/OnShow стоит код настройки отображения окна в соответствии с Varx вида:

Код:

if Varx=1 then begin 
 ..... настройки формы
end;

Проблема в том, что если стоит проверка "if..." нихрена форма не настраивается!!, если же строку с проверкой "if..." закомментить - сразу всё работает нормально!! То есть переменная почему-то не была определена!

Ещё в этой форме в некоторых случаях вылетает ошибка:

:7c812afb kernel32.RaiseException + 0x52
:00406d68 NotifyNonDelphiException + $1C
:7c90327a ntdll.RtlConvertUlongToLargeInteger + 0x3c
:7c90e48a ntdll.KiUserExceptionDispatcher + 0xe
:00544e33 TCustomForm.DoCreate + $37
:00544a77 TCustomForm.AfterConstruction + $17
:00544a46 TCustomForm.Create + $1A6

Посмотрел CallStack и CPU - ничего явно указывающего на ошибку нет.

Что за баг и как его исправить??? Пишите все предположения - проверю!

[M.A.D.M.A.N.]

Событие OnCreate выполняется до того, как ты передашь переменную. Можно конструктор класса формы свой написать, в него передавать и значение твоей переменной.

[delphicoding]

OnShow тоже пробовал - баг одинаковый.
Звучит стрёмно.

[NIch]

А почему не сделать VarX глобальной? Как вариант.
Или зачем ее инициализировать в событии OnCreate? Может только в OnShow?

[delphicoding]

Глобальной нельзя, тк таких окон может быть создано много и каждое со своим параметром VarX - поэтому расположить переменную можно только в самой форме.
Писал же, что пробовал и OnCreate и OnShow.

[NIch]

Есть еще события формы...
http://www.delphisources.ru/pages/fa...rm_events.html
OnCreate
OnShow
OnPaint
OnActivate
OnResize
OnPaint
OnCloseQuery
OnClose
OnDeactivate
OnHide
OnDestroy

[Viajero]

Код:

GlobalVarx:=1;
   Fx:=Formx.Create(Application);
   Fx.Varx:=1;
.........................
TFormx.FormCreate(Sender: TObject);
begin
Varx:=GlobalVarx;
.........................

[delphicoding]

Есть еще события формы...
OnCreate
OnShow
OnPaint
OnActivate

Пробовал все очищать.

Viajero

?

[Viajero]

Сообщение от delphicoding

Глобальной нельзя, тк таких окон может быть создано много и каждое со своим параметром VarX - поэтому расположить переменную можно только в самой форме.

Что мешает сделать и параметр, и глобальную переменную и через неё присваивать параметр (см мой пост выше). Этот способ я применял в своих программах, хотя способ, указанный M.A.D.M.A.N. теоретически более правильный.
Способов туева ... , не понимаю в чём проблема?

[M.A.D.M.A.N.]

Сообщение от Viajero

... не понимаю в чём проблема?

Ответ кроется в названии темы.