home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 February / Chip_2000-02_cd.bin / zkuste / Delphi / navody / tip2 / 701.txt < prev   
Text File  |  1999-11-15  |  2KB  |  48 lines
  1. {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
  2. { Downloaded from The Coder's Knowledge Base                         }
  3. { http://www.netalive.org/ckb/                                       }
  4. {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
  5. { @ CKB Header Version.: 1.01                                        }
  6. { @ Category ID........: delphi_misc                                 }
  7. { @ Added to database..: 10.11.98                                    }
  8. {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
  9. { @ Title..............: Mouse move                                  }
  10. { @ Original Filename..: mousemove.txt                               }
  11. { @ Author.............: Bent Normann Olsen (normann@greennet.gl)    }
  12. { @ Description........: Highlight a comp by mouse move              }
  13. { @ Tested w. Compiler.: not tested yet                              }
  14. { @ Submitted by.......: Unofficial Delphi Developers FAQ (uddf@gnomehome.demon.nl) }
  15. {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
  16.  
  17.  
  18. I want to write a component which highlights when the user moves the
  19. mouse over the comp.
  20.  
  21. Use CM_MOUSEENTER and CM_MOUSELEAVE messages like: 
  22.  
  23.  
  24.   TYourObject = class(TAnyControl)
  25.   private
  26.     FMouseInPos : Boolean;
  27.     procedure CMMouseEnter(var AMsg: TMessage); message CM_MOUSEENTER;
  28.     procedure CMMouseLeave(var AMsg: TMessage); message CM_MOUSELEAVE;
  29.   end;
  30.  
  31. implementation
  32.  
  33.   procedure TYourObject.CMMouseEnter(var AMsg: TMessage);
  34.   begin
  35.     FMouseInPos := True;
  36.     Refresh;
  37.   end;
  38.  
  39.   procedure TYourObject.CMMouseLeave(var AMsg: TMessage);
  40.   begin
  41.     FMouseInPos := False;
  42.     Refresh;
  43.   end;
  44.  
  45. ...and then read FMouseInPos when painting the control, or in any way you like to change the highlightning. 
  46.  
  47.  
  48.