开发学院软件开发Delphi 递归清空窗体上所有文本框,下拉框中的文本 阅读

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

 2006-02-04 14:38:07 来源:WEB开发网   
核心提示:{*单元说明: 递归清空窗体上 所有文本框,下拉框中的文本,递归清空窗体上所有文本框,下拉框中的文本,作者 : 笔名:易 一 英文名:yeeyeeE-Mail : jane1437@163.com创建时间: 2005年3月24日及最后修改时间:修改人修改时间及:修改说明:版权声明: 版权所有,转载请注明

{*
单元说明:    递归清空窗体上 所有文本框,下拉框中的文本。
作者     :   笔名:易  一   英文名: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
   begin
    (AControl.Controls[i] as TCustomEdit).Text:='';
   end;
   if AControl.Controls[i] is TCustomComboBox then
   begin
    (AControl.Controls[i] as TCustomComboBox).ClearSelection;
   end;
   //可以 作为 父亲的控件处理事件。
   if AControl.Controls[i] is TCustomControl  then
   begin
    ClearText(AControl.Controls[i] as TCustomControl);
   end;
  end;
end;

//函数调用

procedure TFormCYBase.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  // ESC 键处理事件。
  if (Key = VK_ESCAPE)  then
  begin
   ClearText(self);
  end;
end;

Tags:递归 清空 窗体

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接