鼠标指针图片替换

最新推荐文章于 2025-10-25 14:47:06 发布

转载最新推荐文章于 2025-10-25 14:47:06 发布 · 469 阅读

DELPHI开发专栏收录该内容

194 篇文章

订阅专栏

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;