• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

delphi7信息对话框的按钮屏蔽键盘操作,只允许鼠标点击

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

本问题由 delphi 学友QQ群中一位群友提出,个人觉得是一个好问题。

本教程源码下载

本教程面向新手,希望大家能从中学到除了本功能之外的真正编程技能。

本功能的实现原理,用窗口当对话框的界面,在界面上放两个TButton,再放一个TLabel用于显示信息,但要阻止键盘操作按钮,需要对按钮进行处理。详细说明在源代码中。

以下是新手教程

a) 去掉 TFrmMsgBox 中的全局变量:

    菜单 Project ---> Options... ,或者按 ctrl + shift + f11 组合键,打开工程属性设置框,进行如图操作。

接下来,删除单元中的全局变量定义。

 

把 TFrmMsgBox 窗口从自动创建队列中除去,这是一步很重要的技能,有助于加强对面向对象编程思想的理解。

另外,窗口自动创建的代码,还可以在工程文件中找到。

菜单 Project ---> Source 

红框中为自动创建的窗口的代码。进行上述操作后 Application.CreateForm(TFrmMsgBox,FrmMsgBox); 此句就会被删除。你手动删除此句,亦可。

b) 设置TFrmMsgBox 窗口的属性,让它没有右上角的叉,看起来像对话框。

F12 窗口与代码切换, shift + f12 ,可以选择目标窗口。

F11 在窗口上按 F11 ,就会出现属性编辑框。

 c) 如何调试系统自带的单元。系统自带单元的函数,包括indy组件等,我们无法用F7进入函数。实现方法如下:

    菜单 Project ---> Options... ,或者按 ctrl + shift + f11 组合键,打开工程属性设置框。

这样就是优先使用 debug 目录下的 dcu ,就可以调试系统自带的单元了。

 


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap