杜
杜風
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure Tmj_cxFrm.a011Click(Sender: TObject);
var i:integer;
begin
for i:=0 to mj_cxfrm.ComponentCount -1 do
if copy(Components.Name,1,1)='b' then
(Components as TCheckBox).Checked :=false;
end;//多個 CheckBox的名字(name)都以B開頭，別的控件名字開頭都不為B
var i:integer;
begin
for i:=0 to mj_cxfrm.ComponentCount -1 do
if copy(Components.Name,1,1)='b' then
(Components as TCheckBox).Checked :=false;
end;//多個 CheckBox的名字(name)都以B開頭，別的控件名字開頭都不為B