Move tab to other pagecontrol

[majid.ebru]

Hi
how can I move a tab to other pagecontrol ?
Thank

[wp]

simply by setting the Parent or PageControl properties of the tab to the other PageControl. Note that for whatever readon the TabVisible property must be reset to true after moving to the other container.

Tested on Windows:

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button1Click(Sender: TObject);
2. var
3.   sheet: TTabSheet;
4. begin
5.   sheet := PageControl1.ActivePage;
6.   if sheet <> nil then
7.   begin
8.     sheet.PageControl := Pagecontrol2;
9.     sheet.TabVisible := true;
10.   end;
11. end;

[Martin_fr]

Use TExtendedNotebook from the tab "LazControls" (package LazControls).

That is the same notebook used by the IDE for the source editor, and supports moving tabs between 2 notebooks.

You may still have to hook the events for on drop or on accept...

[majid.ebru]

simply by setting the Parent or PageControl properties of the tab to the other PageControl. Note that for whatever readon the TabVisible property must be reset to true after moving to the other container.

Tested on Windows:

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button1Click(Sender: TObject);
2. var
3.   sheet: TTabSheet;
4. begin
5.   sheet := PageControl1.ActivePage;
6.   if sheet <> nil then
7.   begin
8.     sheet.PageControl := Pagecontrol2;
9.     sheet.TabVisible := true;
10.   end;
11. end;

Thank you