首页 相关文章 递归清空窗体上所有文本框,下拉框中的文本

递归清空窗体上所有文本框,下拉框中的文本

  {*
  单元说明: 递归清空窗体上 所有文本框,下拉框中的文本。
  作者 : 笔名:易 一 英文名:yeeyee
  E-Mail : jane1437@163.com
  创建时间: 2005年3月24日
  及最后修改时间:
  修改人修改时间及:
  修改说明:
  版权声明: 版权所有,转载请注明本人邮箱,笔名,
   并保证文章的完整性。
  *}

  //函数单元。
  procedure TFormCYBase.ClearText(AControl:TWinControl);
  var
   I: Integer;
  begin
   for I := 0 to AControl.ControlCount - 1 do // Iterate
   begin
   //需清空处理控件
   if AControl.Controls[i] is TCustomEdit then
   be...[ 查看全文 ]

2016-02-19 标签:

递归清空窗体上所有文本框,下拉框中的文本的相关文章

手机页面
收藏网站 回到头部