窗体做参数
- 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;
我有多个窗体上有20个checkbox、edit
请问如何写公共函数,访问
以上这段代码怎么修改
[解决办法]
方便一点啊。。
[解决办法]