Текущий архив: 2004.04.11;
Скачать: CL | DM;
Вниз
динамическое создание формы Найти похожие ветки
← →
ламерламер (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;
Страницы: 1 вся ветка
Текущий архив: 2004.04.11;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.039 c
