鼠标指针图片替换

最新推荐文章于 2024-04-06 21:54:12 发布

nextop88

最新推荐文章于 2024-04-06 21:54:12 发布

阅读量425

点赞数

分类专栏： DELPHI开发

DELPHI开发专栏收录该内容

194 篇文章 4 订阅

订阅专栏

 
 var 
 
    
 CurPos: TPoint; 
 
    
 ADC: HDC; 
 
    
 ARect: TRect; 
 
 begin 
 
    
 GetCursorPos(CurPos); 
 
    
 ADC := GetWindowDC(Self 
 . 
 Handle); 
 
    
 try 
 
      
 ARect := Rect(CurPos 
 . 
 x - Self 
 . 
 Left, CurPos 
 . 
 y - Self 
 . 
 Top, CurPos 
 . 
 x - Self 
 . 
 Left +  
 32 
 , CurPos 
 . 
 y - Self 
 . 
 Top +  
 32 
 ); 
 
      
 InValidateRect(Self 
 . 
 Handle, @ARect,  
 true 
 ); 
 
      
 DrawIconEx(ADC, ARect 
 . 
 Left, ARect 
 . 
 Top, FIcon,  
 32 
 ,  
 32 
 ,  
 0 
 ,  
 0 
 , DI_NORMAL); 
 
    
 finally 
 
      
 ReleaseDC(Self 
 . 
 Handle, ADC); 
 
    
 end 
 ; 
 
 end 
 ; 