[Lazarus] Problem with tabs (bug more urgent than shown in Mantis)

[mitya boyarintsev]

before applying the patch. the bug can be reproduced in the following way:

procedure TForm1.Button1Click(Sender: TObject);
var
  t : TTabSheet;
begin
  t := TTabSheet.Create(PageControl1);
  t.Caption := 'New Page';
  t.PageControl := PageControl1;
  PageControl1.ActivePage := t;
end;

if you add a page to pagecontrol and set the new page as Active, click back
to the previosly selected page is no success.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20080926/6e05650e/attachment-0007.html>