Текущий архив: 2003.10.06;
Скачать: 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 вся ветка
Текущий архив: 2003.10.06;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.018 c
