TPageControl - problem with new tabs created after deleting previous
Original Reporter info from Mantis: Dibo
-
Reporter name: Krzysztof Dibowski
Original Reporter info from Mantis: Dibo
- Reporter name: Krzysztof Dibowski
Description:
Hi,
I have problem with new tabs created after deleting all previous tabs. Example:
- Put on form: Button1, Button2 and PageControl
- Add this events for buttons and run application:
procedure TForm1.Button1Click(Sender: TObject);
begin
with TTabSheet.Create(Self) do begin
PageControl := PageControl1;
Caption := 'Tab ' + IntToStr(PageControl1.PageCount);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
PageControl1.ActivePage.Free;
end;
Additional information:
- Add two tabs by clicking Button1 two times
- Delete this tabs by clicking Button2 two times
- Add two tabs again and what you see? Can you click tab number 2 or greater?
Lazarus snapshot, Revision 21752 from 2009-09-18. Windows Vista 32bit with SP1
Mantis conversion info:
- Mantis ID: 14625
- Version: 0.9.27 (SVN)
- Fixed in version: 0.9.29 (SVN)
- Fixed in revision: 25122 (#340c3084)
- Target version: 1.0.0
- LazTarget: 1.0