Скачать: CL | DM;

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;
А в панельке уже все что хочеш таскать...

---

← →
ЮЮ ©   (2006-09-14 10:16) [4]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.031 c