Recent

Author Topic: TPageControl - strange problem  (Read 2534 times)

Dibo

  • Hero Member
  • *****
  • Posts: 1045
TPageControl - strange problem
« on: September 16, 2009, 10:23:19 pm »
Hi,
I have problem with new tabs created after deleting all previous tabs. Example:

1. Put on form: Button1, Button2 and PageControl
2. Add this events for buttons and run application:
Code: [Select]
procedure TForm1.Button1Click(Sender: TObject);
begin
  with TTabSheet.Create(Self) do
    PageControl := PageControl1;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  PageControl1.ActivePage.Free;
end;   
3. Add two tabs by clicking Button1 two times
4. Delete this tabs by clicking Button2 two times
5. Add two tabs again and what you see? Can you click tab number 2 or greater?

Lazarus snapshot, Revision 21533 from 2009-09-02. Windows Vista 32bit with SP1