Código Delphi [-]PageControl1.ActivePage := TTabSheet(TDBGrid(FindComponent('DBGrid1')).Parent);
PageControl1.ActivePage := TTabSheet(TDBGrid(FindComponent('DBGrid1')).Parent);