Форум: "Система";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Вниз

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

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

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

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

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

---

← →
ламерламер   (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;

---

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.034 c