Скачать: CL | DM;

RegisterClass(TMyForm)   Найти похожие ветки 

← →
val_5   (2003-09-23 23:02) [0]

Привет ! Подскажите, пожалуйста. Как написать функцию, которая получает
параметр FormClassName: string и создает форму заданного класса.
В initialization модулей форм, которые должны так создаваться регистрирую
класс RegisterClass(TMyForm). Далее можно получить этот класс по его
имени - FindClass("TMyForm"). Но создать форму не получается.

---

← →
Guerrillero ©   (2003-09-23 23:16) [1]

Попробуй вместо FindClass исполозовать GetClass

---

← →
jack128 ©   (2003-09-23 23:46) [2]

> Но создать форму не получается.
Позволь не поверить ;-)

procedure TForm1.Button1Click(Sender: TObject);
begin
with TFormClass(FindClass("TForm1")).Create(nil) do
try
ShowModal;
finally
Free;
end;
end;

initialization
RegisterClass(TForm1);
finalization
UnRegisterClass(TForm1);
end.

---

← →
Валерий   (2003-09-24 01:34) [3]

jack128 ©
Спасибо ! Я забыл привести к TFormClass и естественно вызывался конструктор TObject-а

---

← →
Валерий   (2003-09-24 01:37) [4]

Guerrillero ©
FindClass и GetClass идентичны за исключением того что в случае отсутствия зарегистрированного класса FindClass - создает Exception, а GetClass молча возвращает Nil

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.018 c