| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Отловить изменение текстовых свойств компонента [D5, WinXP]

Darvin ©   (2006-04-18 18:20:00) 

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

---

Leonid Troyanovsky   (2006-04-18 21:04:00) [1]

> Darvin ©   (18.04.06 18:20)  

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


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

--
Regards, LVT.

---

Darvin   (2006-04-18 19:16:00) [2]

спасибо

---

проходил мимо   (2006-04-18 18:43:00) [3]

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

 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;

---

Наверх