TMyButton = class(TCustomControl)
.....
protected
procedure cmtextchanged(var message:tmessage);message cm_textchanged;
....
published
property font;
.....
procedure tmybutton.cmtextchanged;
begin
invalidate;
end;
property font
Создаю кнопку наследуя TCustomControl, при использовании в теле компонента property font, свойство начинает отображаться в инспекторе объектов, но изменения этого свойства не отображаются
Что значит не отображаются? Контрол не рисуется с нужным цветом? Или свойство не меняется?
Вообще, согласно исходника, при любом изменении шрифта контрол автоматически перерисовывается (вызывается функция Invalidate, которая посылает контролу сообщение WM_PAINT).
Выложи исходник компонента (или его кусок), чтобы посмотреть что у тебя не так...
Вообще, согласно исходника, при любом изменении шрифта контрол автоматически перерисовывается (вызывается функция Invalidate, которая посылает контролу сообщение WM_PAINT).
Выложи исходник компонента (или его кусок), чтобы посмотреть что у тебя не так...
вид текста на кнопке не меняется.
Дайте пожайлуста ссылку на толковый супорт.
Код:
Дайте пожайлуста ссылку на толковый супорт.