View Issue Details

IDProjectCategoryView StatusLast Update
0034870LazarusLCLpublic2019-01-14 15:31
ReporterZeljan Rikalo Assigned ToZeljan Rikalo  
PrioritynormalSeverityminorReproducibilityhave not tried
Status closedResolutionfixed 
Summary0034870: TCustomTabControl.ShowCurrentPage regression from r59186 by michl
DescriptionIf 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 ReproduceCreate form with TPageControl and two TTabSheets, set active page to the first one, in OnCreate of form set TPageControl.PageIndex := 1; -> error
TagsNo tags attached.
Fixed in Revision60081
Attached Files


related to 0033991 closedMichl Event TComboBox.OnEditingDone is fired wrongly when clicking on TabSheets 


There are no notes attached to this issue.

Issue History

Date Modified Username Field Change
2019-01-14 12:43 Zeljan Rikalo New Issue
2019-01-14 13:15 Zeljan Rikalo Relationship added related to 0033991
2019-01-14 13:15 Zeljan Rikalo Assigned To => Zeljan Rikalo
2019-01-14 13:15 Zeljan Rikalo Status new => assigned
2019-01-14 15:31 Zeljan Rikalo Fixed in Revision => 60081
2019-01-14 15:31 Zeljan Rikalo Status assigned => resolved
2019-01-14 15:31 Zeljan Rikalo Resolution open => fixed
2019-01-14 15:31 Zeljan Rikalo Status resolved => closed