@Microo10

Помогите пожалуйста, хочу сделать компонент который сочетает в себе tbutton и tlabel, при этом динамически выводится на форму. В общем нужен простой пример своего компонента с сочетанием 2 компонентов(Tbutton и еще какой нибудь), ну и хотя бы с одним свойством - Button.OnClick...помогите пожалуйста,просто не смог найти подобных примеров

0

@RinatV

по поводу как можно удобно разарбатывать свой компонент Матрица выбора-вывода

т.к. компонента TComponent нет в палитре контролов вроде, зарегистрируй его сперва.

Только в чем смысл объединения не очень понятен, в принципе такие объединения можно делать воспользовавшись Фреймами TFrame, довольно таки удобно, но если вы прописали сперва какое нибудь событие вложенного фо фрейм компонента, удаление не есть противоположность, в чем разница можно увидеть через View as Text на форме, вместо по умолчанию пропишется nil.

Добавлено через 3 часа 36 минут
По поводу TComponent, это неправильно, надо в любом случае прописывать потомка, т.к. TComponent родитель всех компонентов и есть очень много мест где он используется, если вдруг придется переопределять такие методы, то придется писать чтото типа Classes.TComponent иначе возникнут ошибки несоответсвия аргументов и другие типы ошибок, не очень понятные иногда.

Вообще идея компонента содержащая в себе еще два контрола плохая, это связано с сериализацией, этот как раз вид формы View as Text. Если уж очень хочется попробовать такое провернуть, то придется изучить сериализацию. Хотя конечно же можно запоминать состояния кнопки и лабела в published секции компонента, но удобно так делать только в простых случаях.

Так что я на Вашем месте бросил бы затею делать 120% TButton

1

@cotseec

варианты:
создавать какую-нибудь TPanel и на нее накидывать кнопки и метки (для них TPanel является Parent)
создавать сразу кнопки и метки
в обоих случаях переписывать все необходимые методы
в аттаче пример второго варианта

Вложения

Test9.7z (152.9 Кб, 3 просмотров)

1

angstrom

Рассмотреть на примере готовых контролов \source\sample\spin.pas - пример контрола TSpinEdit.

@Microo10

Спасибо за отзывы,завтра все испробую и отпишусь. Пока что я динамично вывожу на форму группу компонентов (TButton,TLable,TSpeedButton и Timage)...дело в том что не известно сколько понадобится таких групп(данные берутся по get запросу с сервера). Вот я думаю как реализовать подобное...просто динамически выводить каждый компонент не удобно
P.S в TScrollbox вывожу

0

angstrom

Тогда, наверное, удобнее создать класс создающий разом все необходимые контролы.

@RinatV

Бросайте на форму TClientDataSet Настройте его правой лапкой мыши указав необходимые поля и их типы, получится таблица.

Дальше TDataSource и контроль из DB Controls реализующий ленточное представление (не помню как называется), и соберите в нем свой комплект котнролов.

1