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

← →
ламерламер (2004-03-25 11:26) [0]

процедура получает класс формы в виде строки

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

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

← →
MildScare © (2004-03-25 11:55) [1]

В модуле формы в конце надо

initialization
RegisterClass(TMyForm);

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

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

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