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

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

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

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

Сообщение AMD » 05.02.2008 12:48:27

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

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


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

Если нетрудно обьясните или скинте ссылку где это можно прочитать
AMD
постоялец
 
Сообщения: 189
Зарегистрирован: 23.01.2008 22:25:25
Откуда: Кишинев

Сообщение tria » 05.02.2008 14:58:50

На StaticText в закладке Additional посмотри
tria
постоялец
 
Сообщения: 401
Зарегистрирован: 03.04.2006 11:24:10

Сообщение AMD » 06.02.2008 01:16:22

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


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

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

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

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

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

Выбираю BorderStyle - sbsSingle

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

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

и напоминаю Цель моего вопроса это как я могу создавать новые компоненты на базе старых
AMD
постоялец
 
Сообщения: 189
Зарегистрирован: 23.01.2008 22:25:25
Откуда: Кишинев

Сообщение B4rr4cuda » 06.02.2008 07:20:43

Создаешь модуль, обзываешь его как-нить и начинаешь писать класс наследник от компонента.
Пример пустого класса наследника (те идентичному родителю по функциональности)
Код: Выделить всё
type TMyLabel=class (TLabel)
private
public
end;

Модуль сохраняешь, создаешь пакет и включаешь туда модуль. Можешь взять что-нить за основу - будет проще.
Из литературы рекомендую книгу "Создание оригинальных компонент в среде Delphi".
Аватара пользователя
B4rr4cuda
энтузиаст
 
Сообщения: 693
Зарегистрирован: 28.12.2007 07:48:35


Вернуться в Lazarus

Кто сейчас на конференции

Сейчас этот форум просматривают: Google [Bot] и гости: 114

Рейтинг@Mail.ru