Componentes - usando mensagens do windows

======================== Componentes - Usando mensagens do Windows ========================

Declare as mensagens no protected.

Este exemplo abaixo mostra um botão que quando o mouse esta sobre, ele fica com

caption negrito:

 type

   TMdActiveButton = class(TButton)

   protected

     procedure MouseEnter (var Msg: TMessage); message cm_mouseEnter;

     procedure MouseLeave (var Msg: TMessage); message cm_mouseLeave;

   end;

 implementation

 procedure TMdActiveButton.MouseEnter(var Msg: TMessage);

 begin

   Font.Style := Font.Style + [fsBold];

 end;

 procedure TMdActiveButton.MouseLeave(var Msg: TMessage);

 begin

   Font.Style := Font.Style - [fsBold];

 end;