• Registered: 2016-12-27
  • Posts: 50

Topic: PageControl

Как при переходе из одной вкладки в другую сделать определенное действие (нужно что то похожее OnShow для каждого TabSheet-a)
Может определить индекс и сделать if else, или же switch case ?
Но в этом случае думаю оно сработает однократно ведь поставить надо либо в Form1_OnShow либо в главном begin---end

  • Registered: 2014-02-14
  • Posts: 10,294

Re: PageControl

У компонента PageControl есть событие OnChange, которое срабатывает при переключении вкладок, пример

procedure Form1_PageControl1_OnChange (Sender: string);
begin
    ShowMessage(Form1.PageControl1.ActivePageIndex);
end;
Dmitry.
  • Registered: 2016-12-27
  • Posts: 50

Re: PageControl

То есть присвоить переменной значение Form1.PageControl1.ActivePageIndex и сделать праверку Switch Case и все это поставить в

procedure Form1_PageControl1_OnChange (Sender: string);
begin 

              Поставить Здесь 

end;

Вкладок будет 5-6 штук и при выборе каждой будут появляться определенные панели

  • Registered: 2016-12-27
  • Posts: 50

Re: PageControl

Похоже сработало.
Спасибо Вам большое.
Но я написал не правильно в делфи вместо Switch Case надо использовать Case Of