发现了一个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,如需转载请自行联系原作者
相关文章
|
16天前
|
前端开发 开发工具 Android开发
小技巧分享 - 使用 Visual Studio Code 查看和修改 ABAP 代码试读版
小技巧分享 - 使用 Visual Studio Code 查看和修改 ABAP 代码试读版
10 0
小技巧分享 - 使用 Visual Studio Code 查看和修改 ABAP 代码试读版
在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
|
编译器
KBMMW 4.93.10 win64 一个BUG 修正
经常有人提到kbmmw 4.93.10 的64 位版本没有32位版本稳定。 经过官方确认,是delphi 编译器生成64 位代码内存偏移地址的错误。 在kbmMWGlobal.pas 中 有一个函数kbmMWGetCurrentThreadID, 如下: 此函数在64 位里面,编译器出来是这个 可以看见编译出来的机器码是 $65 $48 $8B $04 $25 $24 $00 $00 $00 这个有时会导致64 位服务器出问题。
995 0