PageControl jak zduplikować zakładkę

0

Witam,

Powiedzmy że mam w komponencie PageControl utworzoną zakładkę z komponentami jak dynamicznie teraz utworzyć nową zakładkę tak aby zawierała to samo co pierwsza zakładka?

Próbowałem tak:

var
  TabSheet: TAdvTabSheet;
  Strm: TMemoryStream;
begin
  Strm := TMemoryStream.Create;
  Strm.WriteComponent(StaraZakladka);
  Strm.Position := 0;
  TabSheet := TAdvTabSheet.Create(PageControl);
  TabSheet.AdvPageControl := PageControl;
  Strm.ReadComponent(TabSheet);
  PageControl.ActivePage := TabSheet;
end;
  
2

Do tego co chcesz zrobić, znacznie bardziej nadaje się wykorzystanie ramek TFrame. Musisz skopiować wszystkie komponenty na frame i potem utworzyć dwie instancje tego obiektu ustawiając rodziców odpowiednio na TabSheet1 i TabSheet2.

Pod TYM linkiem znajdziesz cały artykuł poświęcony wykorzystaniu ramek.

1 użytkowników online, w tym zalogowanych: 0, gości: 1