Как в runtime создать класс, унаследованный от TPanel и вывести Caption в левом верхнем углу?
Serega128
Дата: 09.10.2004 12:22:54
Как в runtime создать класс, унаследованный от TPanel и вывести Caption в левом верхнем углу?
Lelikk
Дата: 09.10.2004 15:02:23
КЛАСС в run-time создать нельзя!
Можно создать объект какого-либо своего или стандартного класса с помошью конструктора.
Для вывода метки в конструкторе твоего производного класса должен быть прописан соответствующий код, причем метке в качестве родителя присваивается твой контрол
________________________________________________________
Глюк - это высокоорганизованная система не поддающихся определению частиц
Michael7
Дата: 09.10.2004 23:09:30
Все зависит от того, насколько крутой класс тебе нужен.
Если супер - то создай компонент от TCustomControl, аналогичный TCustomPanel или TCustomGroupBox. Можешь посмотреть в их исходниках процедуру Paint, в которой есть кусок, где рисуется Caption.
Если что попроще - то так и об"являй класс от TPanel, в котором в Create стряпай какой-нибудь ТLabel, ставь его куда хочешь, пиши в него что надо
Old Nick
Дата: 10.10.2004 14:21:21
А еще проще создать Template.
Положи на форму TPanel, на ней в верхней части какой-нибудь Header, любой компонент, который тебе подойдет, выдели этот TPanel и затем в меню Дельфи выбери Component -> Create Component Template...
И будешь использовать этот Template как компонент
---------------------
Не учи отца и баста!