Delphi 清空某个Form的控件内容,用Tag来判断

本文整理自网络，侵删。

 
//清空某个Form的控件内容,用Tag来判断
procedure TBN.ClearEdit(Frm:TForm;iTag:integer);
var
  ChildCtrl:TComponent;
  icnt:Integer;
begin
  for icnt:= Frm.ComponentCount - 1 downto 0 do
  begin
    ChildCtrl:=Frm.Components[icnt];
    if (ChildCtrl is TEdit) and (ChildCtrl.tag=iTag) then
      TEdit(ChildCtrl).clear;
    if (ChildCtrl is TRzEdit) and (ChildCtrl.tag=iTag) then
      TRzEdit(ChildCtrl).clear;
    if (ChildCtrl is TCombobox) and (ChildCtrl.tag=iTag) then
      TCombobox(ChildCtrl).Text:='';
    if (ChildCtrl is TRzCombobox) and (ChildCtrl.tag=iTag) then
      TRzCombobox(ChildCtrl).Text:='';
    if (ChildCtrl is TRzButtonEdit) and (ChildCtrl.tag=iTag) then
      TRzButtonEdit(ChildCtrl).Text:='';
    if (ChildCtrl is TRzMemo) and (ChildCtrl.tag=iTag) then
      TRzMemo(ChildCtrl).Text:='';
    if (ChildCtrl is TMemo) and (ChildCtrl.tag=iTag) then
      TMemo(ChildCtrl).Text:='';
    if (ChildCtrl is TRadioGroup) and (ChildCtrl.Tag=iTag) then
      TRadioGroup(ChildCtrl).ItemIndex:=0;
    if (ChildCtrl is TRzButtonEdit) and (ChildCtrl.Tag=iTag) then
      TRzButtonEdit(ChildCtrl).Text:='';
    if (ChildCtrl is TDatetimePicker) and (ChildCtrl.Tag=iTag) then
      TDatetimePicker(ChildCtrl).DateTime:=now;
  end;
end;
 

相关阅读 >>

Delphi posansi

Delphi 调用cmd获取java 版本号

Delphi中控制与捕捉输入法的实现单元

Delphi xe5 程序中标识win max android ios程序代码分别实现

Delphi webbrowser执行脚本

Delphi中编写参数个数可变的函数

干掉360保险箱vb/vc/Delphi 源码

Delphi 6句代码实现Delphi动态调用api函数

Delphi 10 seattle中的画布上绘制字符

Delphi 熊猫烧香核心源码

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 清空某个Form的控件内容,用Tag来判断