| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Закладки

yel ©   (2006-10-09 14:03:00) 

Добрый день
Проблема в следующем: нужно, чтобы объект, расположенный на TabSheet (тот что у PageControl), при создании закладки и переключении на новую закладку располагался на ней

   with TTabSheet.Create(PageControl1) do
   begin
      PageControl := PageControl1;
      OnShow := TabSheetShow;
   end

procedure TForm1.TabSheetShow(Sender: TObject);
begin
   MyComponent.Parent := PageControl1.ActivePage;
end;

MyComponent в этом случае исчезает с первой закладки и нигде больше не виден.

---

yel   (2006-10-09 14:43:00) [1]

> Так вынеси его за пределы закладок


Просто нужно чтобы в зависимости от закладки менялся и сам объект

---

Elen   (2006-10-09 14:42:00) [2]

> yel

Так вынеси его за пределы закладок

---

yel   (2006-10-09 14:42:00) [3]

Оп, сделал

procedure TForm1.TabSheetShow(Sender: TObject);
begin
   dxFlowChart1.Parent := Sender as TTabSheet;
end;


Отдельное спасибо ветке про asи is

---

yel   (2006-10-09 14:39:00) [4]

Перескакивать будет не все, а только один объект.
В моей ситуации так получается, что проще сделать один общий объект для всех закладок

---

Elen   (2006-10-09 14:22:00) [5]

> yel

Я так понимаю ты хочеш чтоб то что было на первой закладке при переключении перескакивало на другую активную? Если да то зачем делать закладками?

---

Наверх