Componentes - usando mensagens do windows

Top  Previous  Next

======================== 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;