Как из TCommandClass вытянуть реальный класс

← →
Igorek © (2002-06-08 23:38) [0]

Уважаемые мастаки, прошу помощи.

Значит так, есть:
TControlClass = class of TControl (из VCL)
var ControlClass: TControlClass
потом напр. ControlClass := TButton

потом где-то есть
var Button1: TButton
надо Button1 создать по ControlClass
т.е. Button1 := ControlClass.Create(Self)
но ControlClass - это class of TControl
так что компилятор ругается Incompatible Types - TButton и TControl

конструктор то виртуальный, вызваться должен какой надо, и возвратить что надо, но компилятор ругаеться

Можно напр. преобразовать:
Button1 := TButton(ControlClass.Create(Self)), но мы же не знаем, что это именно TButton?

Может где ошибка в рассуждениях?

← →
Anatoly Podgoretsky © (2002-06-09 00:35) [1]

Ошибка в рассуждении следующая, ты говоришь, что не знаешь,что это TButton и в тоже время создаешь переменную этого класса, наличо логическое противоречие.

← →
Igorek © (2002-06-09 00:53) [2]

Как бы обьяснить...
Я создаю TButton, но для вызова конструктора использую ControlClass: TControlClass, где
TControlClass = class of TControl

А TButton - это наследник от TControl

Я не буду говорить, почему именно из переменной типа TControlClass я вызываю конструктор TButton, но по сути там вроде я достаточно обьяснил...

← →
Igorek © (2002-06-09 02:42) [3]

Разобрался. Всем спасибо.

TButton знает про TControl, а вот TControl про TButton ничего, вот тебе второе противоречие.

2Anatoly Podgoretsky
Да, там все таки приводить TControl к TButton надо. Кроме того у меня еще в другом месте ошибка была.
Действительно, раз мы создаем TButton, а возвращается TControl, хотя реально создается TButton, то надо приводить. Ведь мы то знаем, что реально создается. Вообще-то оно может быть немного неясно без дополн. исходников.
Но еще раз спасибо.

Удачи.

Как из TCommandClass вытянуть реальный класс Найти похожие ветки