Скачать: CL | DM;

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

← →
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. Тебе для тренировки? Возьми код и сделай похоже.

---

← →
evvcom ©   (2003-05-07 15:06) [6]

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

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

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

---

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

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

---

← →
pusrg ©   (2003-05-07 16:41) [8]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c