2016年8月27日
非主窗体在任务栏显示按钮（简单好用）good
非主窗体在任务栏显示按钮 type TForm2 = class(TForm) private { Private declarations } public { Public declarations } procedure CreateParams(var Params:TCreateParam Read More
posted @ 2016-08-27 03:23 findumars Views(417) Comments(0) Diggs(0)
禁用窗体关闭按钮（使用GetWindowLong修改GWL_STYLE）
一般我们不想让窗体能够关闭, 首先想到的是在OnCloseQuery事件里设置CanClose := False, 不过在某些情况下这个会和程序关闭窗体的业务逻辑产生冲突 所以写了下面这个函数, 可以设置窗体上的部分控制按钮禁用和启用, 仅仅是按钮显示及对鼠标键盘的响应, 按钮功能方面不影响 htt Read More
posted @ 2016-08-27 03:18 findumars Views(1310) Comments(0) Diggs(0)
一个关于Delphi XML处理单元的BUG
使用delphi的XML处理单元 XMLDoc XMLIntf 在获取XML文本内容的时候, 高版本的Delphi会丢失编码描述....在D7上却是正常的, 下面是测试源码: 下面是同样的代码分别在Delphi7 和Delphi2010的执行效果 对比可以发现, XML.Text和SaveToXML Read More
posted @ 2016-08-27 03:14 findumars Views(876) Comments(0) Diggs(0)
获取进程列表的单元
参考一些网上资料, 然后自己改了改......主要是为自己写的一个监视活动进程工具用的, 有需要可以参考参考 http://www.cnblogs.com/hs-kill/p/4702571.html Read More
posted @ 2016-08-27 03:09 findumars Views(576) Comments(0) Diggs(0)
一个修改过简化版的InputQuery（简单实用，用到了Canvas）
主要是觉得在单输入的情况下, 原来InputQuery输入框左边的文本太难看了...... http://www.cnblogs.com/hs-kill/p/4707744.html Read More
posted @ 2016-08-27 03:07 findumars Views(700) Comments(0) Diggs(0)