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

Вниз

Динамическое создание форм   Найти похожие ветки 

 
Demand   (2006-07-31 13:13) [0]

Я не знаю точное кол-во объектов класса TForm2. Мне надо создавать эти формы походу выполнения программы.
Можно ли в Дельфи создать, допустим, двусвязный список форм? Киньте маленький кусочек кода плз.

P.S.Создать запись вида:

type mySpisok=^sp;
sp=record
form:TForm2;
next:mySpisok;
end;
...
var f:mySpisok;
new(f);
f.form.create();

не получается, вылетает при попытке создания её...
Подскажите, что делаю не так.


 
Сергей М. ©   (2006-07-31 13:16) [1]


> Можно ли в Дельфи создать, допустим, двусвязный список форм?


Можно, но не нужно.
Объект Screen имеет св-во Forms, являющее собой список созданных форм.


 
Ega23 ©   (2006-07-31 13:17) [2]

Это изврат. И зачем, есть же TObjectList?


 
Demand   (2006-07-31 13:22) [3]

спасибо, попробую.
просто впервые столкнулся с таким, а опыта мало. Пишу курсовик в универ =)


 
Чапаев ©   (2006-07-31 13:25) [4]


> Ega23 ©   (31.07.06 13:17) [2]

Нормальный подход для человека, долго программировавшего на Паскале... :-)


 
Demand   (2006-07-31 13:47) [5]

Ну в универе долго учили Паскалю сначала. И вообще там хреновенько учат этому делу.

Не могли бы Вы кинуть кусочек кода создания Объкта TForm2 с помощью Screen или TObjectList. А то самому не оч получается.


 
Сергей М. ©   (2006-07-31 13:51) [6]


> создания Объкта TForm2 с помощью Screen


Объект Screen не предназначен для создания форм. Он лишь хранит (кроме всех прочих своих обязанностей) список всех форм, когда-либо созданных в ходе работы VCL-приложения.


 
Юрий Зотов ©   (2006-07-31 13:59) [7]

В дополнение к уже сказанному. Каким бы ни был список форм, создавать саму форму надо не так:
f.form.create();
а так
f.form :=  TForm2.Create(...);



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

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

Наверх




Память: 0.48 MB
Время: 0.031 c
2-1156158306
deplhi
2006-08-21 15:05
2006.09.10
pointers and dll


1-1153991453
mega83
2006-07-27 13:10
2006.09.10
Определение Офиса


4-1147245127
Elen
2006-05-10 11:12
2006.09.10
Перехват поступления данных из COM порта


2-1155900973
Ega23
2006-08-18 15:36
2006.09.10
PVariant как параметр.


2-1155730820
Shaman_
2006-08-16 16:20
2006.09.10
Освободить память после function MyFunction:TMemoryStream;