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

Вниз

Как создать экземпляр формы с параметром?   Найти похожие ветки 

 
PONTIY ©   (2003-07-08 08:55) [0]

Уважаемые знатоки, помогите советом.
Ситуация следующая:
Данная форма создается динамически:
FrmCur := TFrm.Create(Self);
Мне нужна возможность создавать ее с различными параметрами, от которых будут зависеть свойства компонентов лажащих на этой форме.
Пробовал переписывать конструктор формы (добавив в него еще один параметр), но в конструкторе я не могу обращаться к компонентам этой формы, выдает EAccessVialation. Т.е. на сколько я понял в этот момент дочерние компоненты еще не созданы... или я не прав? Подскажите пожалуйста, как это еще можно реализовать?


 
VAleksey ©   (2003-07-08 09:30) [1]

Constructor Create(AOwner: TComponent; ASessionType: TSessionType); reintroduce;

....
constructor TfrmabstSessVAS.Create(AOwner: TComponent; ASessionType: TSessionType);
begin
FSessionType := ASessionType;
inherited Create(AOwner);
//А вот тут обращаешся к компонентам формы.
end;
...


 
Spawn ©   (2003-07-08 09:34) [2]

Насколько я помню, то Хендлы становятся доступными в CreateWnd. Хотя может я ошибаюсь. Та что проверьте.


 
wl ©   (2003-07-08 12:58) [3]

а можно просто ввести в форму Public-процедуру, которая будет делать изменения в компонентах формы, и вызывать её перед вызовом FrmCur.Show();
По крайней мере для меня так всегда было проще, чем переписывать всякие конструкторы, или делать наследование от TForm, или....


 
Юрий Федоров ©   (2003-07-08 13:33) [4]

VAleksey дело говорит :-)



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

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

Наверх




Память: 0.47 MB
Время: 0.014 c
1-67838
Владий
2003-07-07 17:48
2003.07.21
Есть Memo. Нужно скопировать в буфер... (+)


14-68060
Ihor Osov'yak
2003-07-05 20:58
2003.07.21
need help по борьбе с вирусом


6-67937
tovSuhov
2003-05-15 12:37
2003.07.21
Форматы ответов на команду LIST для FTP серверов.


1-67802
Rel_
2003-07-09 13:17
2003.07.21
HexToBin


1-67772
ruslan_as
2003-07-07 09:16
2003.07.21
Генерация уникального кода РС