procedure TSTANDARDSTYLEMAINFORM.BitBtn2Click(Sender: TObject);
var
i: Integer;
f: TFuncContainer;
begin
for i:=0 to FFuncContainers.Count-1 do
begin
f := FFuncContainers as TFuncContainer;
if f.Visible then Dialogs.Showmessage(f.Func.BizClassURL.BizURL.URL);
end;
end;