TCustomTabControl.ShowCurrentPage regression from r59186 by michl
Original Reporter info from Mantis: zeljko@holobit.net @zeljan1
-
Reporter name: Zeljan Rikalo
Original Reporter info from Mantis: zeljko@holobit.net @zeljan1
- Reporter name: Zeljan Rikalo
Description:
If parent form isn't visible code from r59186 raises exception.
if Assigned(CurPage) and HasFocusedControl(Page[FPageIndexOnLastChange]) then
CurPage.SetFocus; <<< if form isn't visible we are dead here. Must check if form is visible before trying to set focus to the CurPage.
Steps to reproduce:
Create form with TPageControl and two TTabSheets, set active page to the first one, in OnCreate of form set TPageControl.PageIndex := 1; -> error
Mantis conversion info:
- Mantis ID: 34870
- Fixed in revision: 60081 (#cab53de8)