Создание компонента

← →
Ler (2003-05-06 13:07) [0]

Люди, помогите разобраться!

Пытаюсь построить такой компонент
( TButtonedPanel=class(TPanel) ):

Есть свойства:
TButtonedPanel.Button // private
TButtonedPanel.Caption // published

Нужно, что бы Caption отображался не на самой панели (этого вообще ненадо), а на кнопке внутри этой панели. Как такое делается?

← →
MBo © (2003-05-06 13:10) [1]

убери то место, где Caption рисутся на панели, и присвой этот же Caption кнопке

← →
icWasya © (2003-05-06 13:52) [2]

типа

implementation Procedure TButtonedPanel.SetCaption(Const ACaption:String); begin Button.Caption:=ACaption; end; function TButtonedPanel.GetCaption:String; begin Result:=Button.Caption; end;

← →
Ler (2003-05-07 14:29) [3]

Спасибо большое за консультацию!

Вот теперь такой вопрос, более глобальный, что-ли:

Хочу написать компонент типа TEdit( и TDBEdit), но с заголовком слева от поля ввода-редактирования или сверху (ну типа у компонента есть свойство CaptionPosition=(cpLeft,cpTop)). Видел такие компоненты в сторонних библиотеках, так что интерес чисто спортивный: надо же когда-то научится писать компоненты.
Так вот, как Вы считаете, по какой объектной иерархии строить такую вещь. Сдается мне, что подход, который я избрал первоначально, не очень верный. Т.е. я на Panel накладывал Label и TEdit. Что скажите?

← →
Ler (2003-05-07 15:01) [4]

АУ !!!

← →
REA © (2003-05-07 15:04) [5]

Уже есть TLabeledEdit в D7. Тебе для тренировки? Возьми код и сделай похоже.

Тогда уж CaptionPosition=(cpLeft,cpRight,cpTop,cpBottom).

> Так вот, как Вы считаете, по какой объектной иерархии строить
> такую вещь. Сдается мне, что подход, который я избрал первоначально,
> не очень верный.

Что-то типа этого и Борланд использует в своих компонентах. Но! Все же TLabel - это просто картинка, которую можно нарисовать на Canvas, не наворачивая на нее кучу событий. Хотя многие все же придется переписывать для нового компонента.

← →
Ler (2003-05-07 15:07) [7]

Дай код пож!
Буду признателен!
На Michaele001@yandex.ru

А зачем использовать TPanel в качестве подложки? Почему бы сразу не делать компонент от класса TCustomControl, и внутри него уже заводить приватные поля FLabel и FEdit.
Хотя по-моему evvcom прав и надпись лучше отрисовывать на канвасе.

Создание компонента Найти похожие ветки