C
ccll
Unregistered / Unconfirmed
GUEST, unregistred user!
function funckeckoneleast(sender: TForm): boolean;
var
i:integer;
begin
result:=false;
for i:=0 to Sender.ComponentCount-1 do
begin
if Sender.Components is TCheckBox then
begin
if (sender.Components as TCheckBox).checked then
begin
result:=true ;
break;
end;
end;
end;
if result=true then exit
else
begin
if MessageDlg('不设置可能会占用很多时间，继续吗？',mtConfirmation,
[mbYes,mbNo],0)=mrYes
then result:=true;
end;
end;
var
i:integer;
begin
result:=false;
for i:=0 to Sender.ComponentCount-1 do
begin
if Sender.Components is TCheckBox then
begin
if (sender.Components as TCheckBox).checked then
begin
result:=true ;
break;
end;
end;
end;
if result=true then exit
else
begin
if MessageDlg('不设置可能会占用很多时间，继续吗？',mtConfirmation,
[mbYes,mbNo],0)=mrYes
then result:=true;
end;
end;