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

Закладки   Найти похожие ветки 

← →
yel   (2006-10-09 14:03) [0]

Добрый день
Проблема в следующем: нужно, чтобы объект, расположенный на 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 в этом случае исчезает с первой закладки и нигде больше не виден.

---

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

> yel

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

---

← →
yel   (2006-10-09 14:39) [2]

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

---

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

> yel

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

---

← →
yel   (2006-10-09 14:42) [4]

Оп, сделал

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


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

---

← →
yel   (2006-10-09 14:43) [5]

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


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

---

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

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



Память: 0.45 MB
Время: 0.044 c