zoukankan      html  css  js  c++  java
  • delphi 7 信息对话框的按钮屏蔽键盘操作,只允许鼠标点击

    本问题由 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 ,就可以调试系统自带的单元了。

  • 相关阅读:
    第8章 字符串
    第7章 方法
    第6章 类和对象
    第5章 数组
    第4章 循环结构、break与continue
    第3章 选择结构
    第2章 变量、数据类型和运算符
    Codeforces Round #426 (Div. 2)
    CCNA学前基础一
    Tinkoff Challenge
  • 原文地址:https://www.cnblogs.com/lackey/p/6207105.html
Copyright © 2011-2022 走看看