Perform 浮动工具栏无标题窗口的移动

//浮动工具栏 

        {

        窗体是否要隐藏，重要的是要判断是否在操作中，

        通过窗体的Active属性，可以确定窗体是否具有焦点。

        在窗体有焦点时，该窗体正在被操作，

        这时需要完全显示在屏幕当中；

        如果窗体没有焦点，通过设置窗体到屏幕的高度来确定窗体的隐藏部分。

        在TTimer组件的OnTimer事件中，窗体没有焦点时，隐藏工具栏

.在窗体上添加 TTimer组件和TImage组件设置窗体Form1的属性

} {以图片的形状作为窗体形态} procedure TForm1.FormCreate(Sender: TObject); begin Self.BorderStyle:=bsNone;//无边框 self.TransparentColor:=True; self.TransparentColorValue:=20; self.Color:=20;//form.color :=form1.TransparentColorValue; end;

//此句会影响单击效果 procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button=mbLeft then begin ReleaseCapture; Perform(wm_syscommand,$F012,0); end; end;

procedure TForm1.Timer1Timer(Sender: TObject);//interval:=200 begin if self.Active=False then self.Top:=-30; end;

procedure TForm1.Image1Click(Sender: TObject); begin self.Top:=30; end;

//完成 1 在屏幕的任意位置出现和隐藏的窗体 2 电子日历

通过 Wiz 发布

转载于:https://www.cnblogs.com/xe2011/archive/2012/06/02/2531638.html

Perform 浮动工具栏无标题窗口的移动相关推荐

python元组启蒙半透明窗口无标题窗口tkinter
用Python制作的幻灯片类型的作品,用来教Python元组启蒙的,还要学习几个常见的错误类型,以下是完整源代码. 本程序需要sprites模块支持,安装方法为在命令提示符下输入以下命令安装: pip ...
C# 系统应用之无标题窗体移动的两种方法
在做项目界面设计中,常常为了美观需要设置窗体属性"FormBorderStyle"(窗体边框和标题栏外观)为None无标题窗口.此时隐藏标题的窗口怎样实现移动呢?我根据自己的项目从 ...
MFC修改窗口无标题和标题信息，修改执执行文件图标
一.创建MFC后窗口显示的是无标题-工程名修改方法在网上看到了几种,下面介绍下比较简单的一种: 1.在MianFrame.c文件中找到这个函数 BOOL CMainFrame::PreCreat ...
易语言取无标题的窗口中编辑框句柄
这是一个无标题的窗口: 如果要向该运行中的程序窗口编辑框中发送消息,就得先取到编辑框的窗口句柄.才能进一步操作. 那要如何才能取到该窗口句柄呢? 解决办法: 一个运行中的程序,虽然没有窗口标题,但是在 ...
关于WM_NCHITTEST消息（移动无标题对话框多个）
我为了移动一个无标题栏的窗体,使用了WM_NCHITTEST消息,这个消息大概如下: 通常,我们拖动对话框窗口的标题栏来移动窗口,但有时候,我们想通过鼠标在客户区上拖动来移动窗口. 一个容易想到的方案 ...
Visual C# .Net 环境中编程实现浮动工具栏
Visual C# .Net 环境中编程实现浮动工具栏郭胜涛 mailtogst@163.com 原帖地址:http://blog.csdn.net/mailtogst/archive/2007/0 ...
mysql输入命令1002无标题_Linux下远程连接MySQL数据库的方法
步骤 1.在服务器端开启远程访问首先进入mysql数据库,然后输入下面两个命令: grant all privileges on *.* to 'root'@'%' identified by 'p ...
【MFC】定制浮动工具栏
00. 目录文章目录 00. 目录 01. 案例概述 02. 开发环境 03. 关键技术 04. 程序设计 05. 秘笈心法 06. 源码下载 07. 附录 01. 案例概述 Microsoft V ...
Android 置Activity全屏和无标题
今天,实在没有什么好些写的内容,所以在网上找了很久,才决定写这个博客.比较简单,还是想保持写博客的习惯. 一.在代码里设置全屏. Activity设置全屏和无标题栏,要用到andorid.view.W ...

Perform 浮动工具栏无标题窗口的移动

Perform 浮动工具栏无标题窗口的移动相关推荐

最新文章

热门文章

Perform 浮动工具栏 无标题窗口的移动

Perform 浮动工具栏 无标题窗口的移动相关推荐

最新文章

热门文章

Perform 浮动工具栏无标题窗口的移动

Perform 浮动工具栏无标题窗口的移动相关推荐