How to detect text and font size changes #31
When creating components you may want to know when the user changed the font or text. This can be quite easily done using the CM_FONTCHANGED and CM_TEXTCHANGED messages.
type ... TComponent1 = class(TComponent) private ... procedure CMFontChanged(var Message: TMessage); message CM_FONTCHANGED; procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED; ... end; procedure TComponent1.CMTextChanged(var Message:TMessage); begin ... end; procedure TComponent1.CMFontChanged(var Message:TMessage); begin ... end;
Author: | Unknown |
---|---|
Added: | 2007/06/02 |
Last updated: | 2007/09/24 |