как связать два PageControl между собой

[Dvoishnik]

есть PageControl1 и PageControl2 нужно чтобы при выборе TabSheet1 в
PageControl1 переходил и PageControl2 на соответствующий TabSheet
не знаю как это реализовать буду рад любым подсказкам

как идея

  PageControl2.TabIndex:= PageControl1.TabIndex;

только когда как сделать так чтоб содержимое PageControl2 отображалось

[northener]

А так

PageControl2.ActivePageIndex:= PageControl1.ActivePageIndex;

[Dvoishnik]

спасибо

Сообщение от northener

А так

PageControl2.ActivePageIndex:= PageControl1.ActivePageIndex;

еще как вариант :

PageControl2.Pages[PageControl1.TabIndex].Show;

[Аватар]

procedure TForm1.PageControl1Change(Sender: TObject);
begin
  PageControl2.TabIndex:=PageControl1.TabIndex;
end;

[Dvoishnik]

Сообщение от Аватар

procedure TForm1.PageControl1Change(Sender: TObject);
begin
  PageControl2.TabIndex:=PageControl1.TabIndex;
end;

так не получалось, не отображалось нечего в TabSheet2

[Аватар]

Не понял юмора. Как это не отображается? Делфин какой? Скины используешь?

[northener]

Сообщение от Аватар

Не понял юмора. Как это не отображается? Делфин какой? Скины используешь?

Не ври. Всё-то ты понимаешь (хотя бы интуитивно) иначе не задавал бы такие правильные вопросы.
TabIndex это рудимент оставшийся от TTabControl.

[xxbesoxx]

Сообщение от Dvoishnik

есть PageControl1 и PageControl2 нужно чтобы при выборе TabSheet1 в
PageControl1 переходил и PageControl2 на соответствующий TabSheet

procedure TForm1.PageControl1Change(Sender: TObject);
begin
  if PageControl1.ActivePage = TabSheet2 then
  PageControl2.ActivePage := TabSheet5
  else
  if PageControl1.ActivePage = TabSheet3 then
  PageControl2.ActivePage := TabSheet6
  else
  if PageControl1.ActivePage = TabSheet1 then
  PageControl2.ActivePage := TabSheet4;
end;

end.

Пример можете скачать : https://yadi.sk/d/pqqUDPufmFkGM

[xxbesoxx]

Сообщение от northener

Не ври. Всё-то ты понимаешь (хотя бы интуитивно)

И Ты так СИЛЬНО не переживай )

[northener]

Сообщение от xxbesoxx

И Ты так СИЛЬНО не переживай )

Ты за меня не бойся. Я "переживать" давно уже перестал.