随笔分类 - Delphi-VCL-Form
摘要：private void Form1_Paint(object sender, PaintEventArgs e){ Text = e.ClipRectangle.Width.ToString();} 在窗体的Paint事件中，有一个ClipRectangle的属性，解释为“获取要在其中进行绘画的矩
阅读全文
摘要：一．新建一个应用程序：File->New Applicaton 在Interface部分要放在Uses Message之后，定义一个消息常量：const WM_NID=WM_USER+1000; 系统规定从WM_USER开始为用户自定义消息。 二．定义一个全局变量： NotifyIcon:TNoti
阅读全文
摘要：http://www.cnblogs.com/del/archive/2008/02/10/1066596.html WinAPI: CreatePatternBrush - 建立位图画刷//声明: CreatePatternBrush( Bitmap: HBITMAP {位图句柄} ): HBRU
阅读全文
摘要：主窗口最小化，其他非主窗口也一起最小化 楼主： 按照常理，程序的主窗口一旦最小化，该程序的其他所有非主窗口都要一起最小化。特殊情况下，怎么实现非主窗口不受主窗口最小化的影响：即主窗口最小化了，其他非主窗口依然没有最小化。 { 注意：在 OnFormCreate 中调用有效! } Winapi.Win
阅读全文
摘要：1 //1.单元内容 2 unit UnitAlienForm; 3 interface 4 uses 5 Windows, Forms, Classes, Graphics; 6 //从文件加载PNG 7 procedure AlienForm_PNGFromFile(AForm : TForm;
阅读全文
摘要：疯狂delphi delphiXE7、XE8、XE10公开课A 群号：58592705 疯狂delphi delphiXE7、XE8、XE10公开课A 群号：58592705 疯狂delphi delphiXE7、XE8、XE10公开课A 群号：58592705 鼠标拖动虚影效果 1 //1.定义消
阅读全文
摘要：http://www.pudn.com/downloads171/sourcecode/windows/detail791686.html unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graph
阅读全文
摘要：嗯...老生常谈的话题, 不过系统的总结了一下, 找了个相对简单的实现方式, 可以方便的发送任何文字 参考另一片文章： http://www.cnblogs.com/-clq/archive/2011/10/01/2197047.html 直接贴代码: http://www.cnblogs.com/
阅读全文
摘要：非主窗体在任务栏显示按钮 type TForm2 = class(TForm) private { Private declarations } public { Public declarations } procedure CreateParams(var Params:TCreateParam
阅读全文
摘要：一般我们不想让窗体能够关闭, 首先想到的是在OnCloseQuery事件里设置CanClose := False, 不过在某些情况下这个会和程序关闭窗体的业务逻辑产生冲突 所以写了下面这个函数, 可以设置窗体上的部分控制按钮禁用和启用, 仅仅是按钮显示及对鼠标键盘的响应, 按钮功能方面不影响 htt
阅读全文
摘要：这2天在写一个工作统计的小东西, 设计思路是创建一个只有托盘图标的程序, 无主窗体, 唯一查看窗体都是动态创建关闭销毁的 使用Delphi自带的TrayIcon控件在DataModule里创建托盘, 由于没有主窗体, 所以设置Application.MainFormOnTaskbar := Fals
阅读全文
摘要：delphi 程序适应屏幕分辨率，先在表单单元的Interface部分定义两个常量， 表示设计时的屏幕的宽度和高度（以像素为单位）。 在表单的Create事件中先判断 当前分辨率是否与设计分辨率相同， 如果不同，调用表单的SCALE过程重新能调整表单中控件的宽度和高度。 Const Orignwid
阅读全文
摘要：SetFontMapping 方法可以自行修改，以适应更多的分辨率。调用也非常简单，如下所示： http://blog.csdn.net/han_348154920/article/details/4762928
阅读全文
摘要：今天在QQ群里有人问怎样实现将自己的窗口嵌入桌面，让它和桌面融为一体，就像很多桌面日历软件那样。我当时想到的就是建立一个Child Window，将他的父窗口设置成桌面Shell窗口就可以了。但是后来想想觉得不对，因为很多桌面日历窗口都有半透明和阴影效果，明显是用Layered Window实现的，
阅读全文
摘要：新版的QQ在截图时加入了窗口自动识别的功能，能根据鼠标的位置自动画出下面窗口的轮廓。今天有人在论坛上问起这个问题，下面我们来探讨这个功能的实现原理。首先我们要明白截图软件的基本原理，截图时实际上是新建了一个全屏窗口，然后将当前桌面的截图画在上面，大部分截图软件，包括QQ都是这么做的。根据鼠标位置获取
阅读全文
摘要：由于不是搞安全的，对这块的东西一直不是很清楚，今天特意整理下。总的来说，他们的关系如下： 我们知道Windows是支持多用户的，Session可以理解为每个用户登录，比如当前登录和远程登陆。Window Stations可以理解为登陆后的不同用户组，我们在任务管理器中可以看到不同的用户名（比如 Ri
阅读全文
摘要：经常有人问关于模态对话框和系统菜单内部实现原理方面的问题， 因为系统通过API隐藏了太多细节，这2个问题确实令初学者甚至是有经验的开发者困扰， 下面是我个人的一些经验总结。先说模态对话框，外部看模态对话框其实就是Dialog弹出以后函数（或者说调用栈call stack）不直接返回， 而是要让你做出
阅读全文
摘要：最近工作中遇到Window Ghosting这个问题， 感觉挺有意思，这里简单记录下。 在XP时代我们的程序没有响应后只能通过任务管理器强制杀掉，但是Vista之后情况变了， 我们仍然可以拖动失去响应的窗口，甚至可以尝试最小化和关闭窗口， 我们把这个特性叫住Window Ghosting。 首先我们
阅读全文
摘要：app有多个不同窗体，均调用相同的一个小窗体，因显示同一样的东西，如grid；如果每个窗体都重复加 小窗体的界面和代码，非常麻烦，而且编译后体积也很大；vcl中这样就行： Form1:=TForm1.create(self); Form1.Parent:= Form2.panle1; Form1.a
阅读全文