<div dir="ltr"><p>before applying the patch. the bug can be reproduced in the following way:<br></p><p>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>  t : TTabSheet;<br>begin<br>  t := TTabSheet.Create(PageControl1);<br>
  t.Caption := 'New Page';<br>  t.PageControl := PageControl1;<br>  PageControl1.ActivePage := t;<br>end; <br><br>if you add a page to pagecontrol and set the new page as Active, click back to the previosly selected page is no success. <br>
</p></div>