Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

динамическое создание формы

ламерламер © (2004-03-25 11:26:00)
процедура получает класс формы в виде строки

procedure Example(ClassForm: String);
.........

этот класс точно существует в системе
Как в процедуре вызвать эту форму?????????

MildScare (2004-03-25 11:55:00) [1]
В модуле формы в конце надо

initialization
RegisterClass(TMyForm);

а в вызове в прецедуре

procedure (FormClassName: String);
var
tmpForm: TForm;
FClass: TFormClass;
begin
FClass := TFormClass(FindClass('FormClassName'));
tmpForm := FClass.Create(Application);
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »