文本框限制输入、关闭按钮功能失效(附:源码）

一、“文本框”限制输入内容：
一个应用程序，难免要通过“文本框”输入内容，然而有些文本框希望仅允许输入数字；有些文本框希望仅允许字母；有些 文本框希望仅允许中文及符号等等，如何通过编程实现呢？请看代码及实例：
   if not (key in ['0'..'9',#8]) then key:=#0;
     //本文本框只能输入0~9数字，只能用退格键(#8)或删除键(#0),
     // 不能输入其他任何字符,

  //if not (key in ['A'..'Z','a'..'z',#8]) then key:=#0;
       //文本框内只能输入大写字母和小写字母，不能输入其他任何字符

  //if (key in ['A'..'Z','a'..'z']) then key:=#0;
       //文本框内不能输入大写字母和小写字母，但能输入其他任何字符

  //if (key in ['0'..'9','A'..'Z','a'..'z']) then key:=#0;
      //不能输入数字和字母，但能输入其他任何字符

   //if (key in ['0'..'9']) then key:=#0 ;
        //本文本框不能输入0~9数字，但能输入其他任何字符

二、窗口右上角关闭按钮功能失效
  为了避免用户在应用程序操作过程中错误操作关闭整个应用程序，可以通过编程使用窗口右上角关闭按钮功能失效，然后通过“退出系统”按钮退出应用程序。代码 如下：
1、使窗口右上角关闭按钮功能失效：
  Application.MessageBox('要关闭应用程序，请单击【退出系统】按钮','温馨提示：');
  CanClose:=False;   //窗口右上角关闭按钮功能失效。

2、“退出系统”按钮代码：  
  Application.Terminate ; //应用程序 终止

本文出自 “tzlin” 博客，转载请与作者联系！