发现了一个delphi的form的bug

简介:

考,delphi窗体句柄会变,我写注册热键程序的时候发现的。试试这样的代码,放到checkbox中看看。

showmessage(inttostr(handle));
if chk2.checked then
self.FormStyle := fsStayOnTop
else
self.formstyle := fsNormal;
showmessage(inttostr(handle));

formstyle := fsstayontop ,这句的实现真是没想到,早知道直接用api指定算了...



本文转自suifei博客园博客,原文链接:http://www.cnblogs.com/Chinasf/archive/2005/12/27/305431.html,如需转载请自行联系原作者
相关文章
在sublime text里阅读ABAP源代码的一些例子
在sublime text里阅读ABAP源代码的一些例子
104 0
在sublime text里阅读ABAP源代码的一些例子
|
JavaScript 前端开发
SAP WebIDE里的JavaScript代码检查code check
SAP WebIDE里的JavaScript代码检查code check
101 0
SAP WebIDE里的JavaScript代码检查code check
|
测试技术 索引
qtp中vb脚本,经典收藏
1.在脚本运行过程中屏蔽鼠标键盘输入    SystemUtil.BlockInput ‘开始处    这里是你的脚本    SystemUtil.UnblockInput ’结尾处   ---------------------------------------      补充关闭进程的方法:Systemutil.
994 0
|
Windows 开发者
Win10 UWP系列:关于错误 0x80073CF9及一个小bug的解决
原文:Win10 UWP系列:关于错误 0x80073CF9及一个小bug的解决 最近一直在开发XX的uwp版本,也是边摸索边做,最近遇到几个比较奇怪的问题,记录于此。 1、项目可用部署到PC,但无法部署到手机,提示以下错误: 错误 : DEP0001 : 意外错误: Install failed. Please contact your software vendor. (Exception from HRESULT: 0x80073CF9 为了方便开发,我将常用的类库引用好、默认的几个页面做好,然后导出成项目模板,新建项目时都从这个模板开始。
1500 0
|
Linux 开发工具 C++
VS Code开发技巧集锦【转】
转自:http://blog.csdn.net/tiantangyouzui/article/details/52163175 入门 自定义 扩展 文件/文件夹管理 编辑技巧 智能感应功能 代码片段 Git集成 调试 任务运行 下文提及的快捷键可能与机器最新设置不符,请参考官方快捷键说明。
1342 0