Главная страница
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.021 c
9-67652
0$a
2003-01-29 23:17
2003.07.21
И вот я снова


14-68012
cyborg
2003-07-04 09:51
2003.07.21
Delphi 6 Update Pack #2


3-67672
dougine
2003-06-26 11:59
2003.07.21
О выборе средств редактирования


1-67836
ruslan_as
2003-07-07 12:30
2003.07.21
Как перевести PDword в String


3-67661
Дучф
2003-06-25 23:18
2003.07.21
Ошибка при добавлении в таблицу