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;

推荐分享