窗体干参数

窗体做参数

Delphi(Pascal) code

procedure  OpenOrCloseTuningFunctionOfPh(AForm :TFormClass);var  i :integer;  BForm :TForm absolute AForm;begin    for i := 1 to 20 do    begin      TCheckBox(BForm.FindComponent('chk' + IntToStr(i))).Left := 1;      TCheckBox(BForm.FindComponent('chk' + IntToStr(i))).Visible := True;      TEdit(BForm.FindComponent('edt' + IntToStr(i))).Left := 15;      TEdit(BForm.FindComponent('edt' + IntToStr(i))).Visible := True;    end;end;