Карта сайтаСсылкиКонтакты

Хостинг


Flat/Hot эффект для компонентов

PDF Печать
Статьи

Как добавить Hot эффект к компоненту?

Если Вы хотите добавить полезную особенность к вашему компоненту (подобно URL в HTML или PageControl/TabControl.HotTrack), Вы должны обработать сообщения CM_MOUSEENTER и CM_MOUSELEAVE:


type 
   TyourControl = class(TDescControl) 
   private 
     { Private declarations } 
     FLinkFont: TFont; 
     FPassiveFont: TFont; 

     procedure CMMouseEnter(var Msg: TMessage); 
         message CM_MOUSEENTER; 
     procedure CMMouseLeave(var Msg: TMessage); 
         message CM_MOUSELEAVE; 
   end; 

implementation 

procedure TyourControl.CMMouseEnter(var Msg: TMessage); 
begin 
//Изменим цвет, когда мышь над управлением 
Font.Assign(FLinkFont); 
end; 

procedure TyourControl.CMMouseLeave(var Msg: TMessage); 
begin 
//Изменим цвет, когда мышь покинула упрвление 
Font.Assign(FPassiveFont); 
end; 

Как пример, Вы можете рассматривать источники TURLLabel и-или THighLightLabel компонентов на сайте (

http://www.geocities.com/mshkolnik
).

По материалам http://delphi.3000.com


 

Добавить комментарий


Защитный код
Обновить