Хочу взять компонент Tlabel и добавить ему варианты границ как у TPanel
BevelOuter и BevelInner с опциями
bvLowered
bvNone
bvRaised
bvSpace
как это возможно?
Если нетрудно обьясните или скинте ссылку где это можно прочитать
Создать новый компонетнт на базе TLabel
Модератор: Модераторы
tria писал(а):На StaticText в закладке Additional посмотри
Если честно я так и не понял чего ты хотел добиться этим ответом.
Цель моего вопроса это как я могу создавать новые компоненты на базе старых
Пример который я преподнес это самое простое переделование из того что я смог предложить.
А ты мало что не понял суть моего вопроса - тоесть ты подумал что мне нужен результат типа StaticText улучшенный label.
Но как раз функция с рамками то еще не имплементиррованна
Выбираю BorderStyle - sbsSingle
ответ TCustomStaticText.setStaticBorderStyle is not implemented yet
Так что вопрос по прежнему открыт
и напоминаю Цель моего вопроса это как я могу создавать новые компоненты на базе старых
Создаешь модуль, обзываешь его как-нить и начинаешь писать класс наследник от компонента.
Пример пустого класса наследника (те идентичному родителю по функциональности)
Модуль сохраняешь, создаешь пакет и включаешь туда модуль. Можешь взять что-нить за основу - будет проще.
Из литературы рекомендую книгу "Создание оригинальных компонент в среде Delphi".
Пример пустого класса наследника (те идентичному родителю по функциональности)
Код: Выделить всё
type TMyLabel=class (TLabel)
private
public
end;
Модуль сохраняешь, создаешь пакет и включаешь туда модуль. Можешь взять что-нить за основу - будет проще.
Из литературы рекомендую книгу "Создание оригинальных компонент в среде Delphi".
