Создать новый компонетнт на базе TLabel

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

Ответить
AMD
постоялец
Сообщения: 189
Зарегистрирован: 23.01.2008 21:25:25
Откуда: Кишинев

Создать новый компонетнт на базе TLabel

Сообщение AMD »

Хочу взять компонент Tlabel и добавить ему варианты границ как у TPanel

BevelOuter и BevelInner с опциями
bvLowered
bvNone
bvRaised
bvSpace


как это возможно?

Если нетрудно обьясните или скинте ссылку где это можно прочитать
tria
постоялец
Сообщения: 401
Зарегистрирован: 03.04.2006 11:24:10
Контактная информация:

Сообщение tria »

На StaticText в закладке Additional посмотри
AMD
постоялец
Сообщения: 189
Зарегистрирован: 23.01.2008 21:25:25
Откуда: Кишинев

Сообщение AMD »

tria писал(а):На StaticText в закладке Additional посмотри


Если честно я так и не понял чего ты хотел добиться этим ответом.

Цель моего вопроса это как я могу создавать новые компоненты на базе старых

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

А ты мало что не понял суть моего вопроса - тоесть ты подумал что мне нужен результат типа StaticText улучшенный label.

Но как раз функция с рамками то еще не имплементиррованна

Выбираю BorderStyle - sbsSingle

ответ TCustomStaticText.setStaticBorderStyle is not implemented yet

Так что вопрос по прежнему открыт

и напоминаю Цель моего вопроса это как я могу создавать новые компоненты на базе старых
Аватара пользователя
B4rr4cuda
энтузиаст
Сообщения: 693
Зарегистрирован: 28.12.2007 06:48:35

Сообщение B4rr4cuda »

Создаешь модуль, обзываешь его как-нить и начинаешь писать класс наследник от компонента.
Пример пустого класса наследника (те идентичному родителю по функциональности)

Код: Выделить всё

type TMyLabel=class (TLabel)
private
public
end;

Модуль сохраняешь, создаешь пакет и включаешь туда модуль. Можешь взять что-нить за основу - будет проще.
Из литературы рекомендую книгу "Создание оригинальных компонент в среде Delphi".
Ответить