Форум: "Основная";
Текущий архив: 2006.05.28;
Скачать: [xml.tar.bz2];
Вниз
Отловить изменение текстовых свойств компонента Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2006.05.28;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c
