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

Отловить изменение текстовых свойств компонента   Найти похожие ветки 

← →
Darvin ©   (2006-04-18 18:20) [0]

Здравствуйте.
У меня есть наследник некоторого компонента, например TLabel.
Мне хотелось бы по-своему обработать присваивание значения некоторым свойствам этого компонента, например свойству Caption и свойству Hint. Но методы присвоения значения этим свойствам в предке приватные, их не перекроешь.
Как можно решить данную проблему обработки присваивания значения?

---

← →
проходил мимо   (2006-04-18 18:43) [1]

как-то так, видимо ...

 TSuperLabel = class(TLabel)
 private
   function GetHint: string;
   procedure SetHint(const Value: string);
 published
   property Hint: string read GetHint write SetHint;
 end;

function TSuperLabel.GetHint: string;
begin
 Result := inherited hint;
end;

procedure TSuperLabel.SetHint(const Value: string);
begin
 // тут и пишешь чего надо
 inherited hint := Value;
end;

---

← →
Darvin ©   (2006-04-18 19:16) [2]

спасибо

---

← →
Leonid Troyanovsky ©   (2006-04-18 21:04) [3]

> Darvin ©   (18.04.06 18:20)  

> Мне хотелось бы по-своему обработать присваивание значения
> некоторым свойствам этого компонента, например свойству
> Caption и свойству Hint. Но методы присвоения значения этим
> свойствам в предке приватные, их не перекроешь.


Например, для отслеживания изменений Caption можно
снабдить оную метку обработчиком сообщения CM_TEXTCHANGED.

--
Regards, LVT.

---

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

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



Память: 0.45 MB
Время: 0.043 c