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

← →
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]

спасибо

> Darvin © (18.04.06 18:20)

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

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

--
Regards, LVT.

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