<p>function loadFormsToPages(TPageControl $page, $forms){<br> if(!is_array($forms))<br> return false;<br> $s = sizeof($forms);<br> for($i=0;$i<$s;$i++){<br> $form = $forms[$i];<br> if($form instanceof TForm)<br> $formsCap[] = $form->caption;<br> }<br> $page->pagesList = implode(_BR_,$formsCap);<br> $pages = $page->pages();<br> $s = sizeof($pages);<br> for($i=0;$i<$s;$i++){<br> $form = $forms[$i];<br> if(!$form instanceof TForm)<br> continue;<br> $form->parent = $pages[$i];<br> $form->windowState = wsMaximized;<br> $form->borderStyle = bsNone;<br> $form->visible = true;<br> }<br>};<br>/* Пример работы <br> * В первый параметр передаем компонент TPageControl.<br> * Во второй параметр передаем массив формы.<br> * Для каждой формы создается вкладка и имя вкладки совпадает с именем формы. <br> * Вот так все просто<br> */<br>loadFormsToPages(c("pages1"), array(c("form2"), c("form3")));</p>