当前位置: 源码素材网 » Delphi源码 » 界面编程 » 详情页

Delphi 用鼠标隐藏显示窗口(仿QQ)

Delphi用鼠标隐藏显示窗口(仿QQ),自动判断窗口紧贴屏幕边缘的距离,当与屏幕边缘比较近时,自动将窗口隐藏起来,鼠标滑过时,会显示出窗口,就像QQ主窗口那样的,隐藏在屏幕顶部,下面来看核心的代码,需要完整源码请在本页下载:
  procedure TForm1.Timer1Timer(Sender: TObject);
  var
   Rects:TRect;
  begin
   Rects.Left := Self.Left;
   Rects.Top := Self.Top;
   Rects.Right := Self.Left+Self.Width;
   Rects.Bottom := Self.Top+Self.Height;
   if (Self.Top <0) and (PtInRect(Rects,Mouse.CursorPos)) then
   Self.Top := 0
   else if (Self.Top>-5) and (Self.Top < 20) and (not PtInRect(Rects,Mouse.CursorPos)) then
   Self.Top := 5-self.Height;
  end;

  • 相关标签:隐藏窗口
  • 调试环境:Delphi7+
  • 文件大小:5.93K
  • 资源评级:
  • 更新时间:2020-05-19
  • 相关链接:暂无演示

源码测试截图:

Delphi 用鼠标隐藏显示窗口(仿QQ)运行截图

相似源码:隐藏窗口 Delphi源码下载:Delphi 用鼠标隐藏显示窗口(仿QQ) 测试截图

下载地址:

下载声明:

本站资源仅供学习参考,禁止用于非法途径。若“Delphi 用鼠标隐藏显示窗口(仿QQ)”源代码侵犯了您的权益,请尽快告诉我们。