PageControl + вынос элементов в отдельное окно

← →
таш (2006-09-14 09:07) [0]

Есть такая ситуация: имеется PageControl, с некоторым кол-вом динамически создаваемых закладок с содержимым, с которым пользователь работает. Необходимо сделать возможность "извлечения закладки" с переносом её содержимого в новое окно.

в действии: т.е. допустим есть у нас три закладки, одну из них пользователь хочет вытащить из этих закладок и сделать автономным окном, т.е новое окно с PageControl и одной единственной этой закладкой. Как такое осуществить?, что-то у меня совсем каша в голове.

← →
Elen © (2006-09-14 09:37) [1]

> таш

как пример :
procedure TForm1.Button1Click(Sender: TObject); begin form2.Show; TrackBar1.Parent:=form2; end; Переносит элемент на другую форму
Т.Е. в цикле меняй парент для элементов на вкладке. А чтоб было проще Эти элементы помести все в TPanel. Поменяв ей парента на другую форму (которую, надеюсь, создаш и покажеш) получиш вылет элементов в отдельное окно. Правильно я говорю?

← →
таш (2006-09-14 09:51) [2]

Ну да, хорошая идеи, просто хотелось ещё проще -- сразу перетащить всю вкладку в другой PageContol. Что вообще по поводу этого ещё порекомендуете? Например с учетом того, что и форма на которую я буду копировать -- будет создаваться динамически, если пользователю захочется вытащить не одну вкладку.

Может, кто ещё сталкивался с подобными задачами, может расскажете ещё каки нибудь рекомендации. Спасибо!

← →
Elen © (2006-09-14 09:58) [3]

> Например с учетом того, что и форма на которую я буду копировать
> -- будет создаваться динамически, если пользователю захочется
> вытащить не одну вкладку.

Правильнышко...

> сразу перетащить всю вкладку в другой PageContol

Я ж и говорю создай на вкладке Панель в которой размести компоненты и меняй родителя для панели (и увидиш компоненты сами перескочат за панелькой)
вроде того :
procedure TForm2.PageControl1EndDrag(Sender, Target: TObject; X, Y: Integer); begin caption:="end drag "; Panel2.Parent :=TabSheet3;..который находится в другом PageControl form3.show; end;
А в панельке уже все что хочеш таскать...

А если TTabSheet переместить в другой PageControl (cм. св-во TTabSheet.PageControl)

PageControl + вынос элементов в отдельное окно Найти похожие ветки