Как удалить программно TabSheet на PageControl

[jurdan]

Как удалять вкладки на PageControl во время работы программы?
Пытался так

Код: Выделить всё

PageControlTest.ActivePage.Free;

становится активной предыдущая, а вкладка не удаляется. Если попытаться её выбрать, выскакивает ошибка деления на ноль.

[Attid]

может сначало переключится на другую ручками а потом освобождать ?

тестовый пример в студию, отправлю в багтрекер.

[jurdan]

Получается то же самое.
Вот мой тестовый пример:

Код: Выделить всё

unit Main;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ComCtrls, ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    AddPage: TButton;
    DeletePage: TButton;
    PageControlTest: TPageControl;
    procedure AddPageClick(Sender: TObject);
    procedure DeletePageClick(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{ TForm1 }

procedure TForm1.AddPageClick(Sender: TObject);
begin
  with TTabSheet.Create(PageControlTest) do
  begin
   PageControl:=PageControlTest;
   Caption:='TabName';
   PageControlTest.ActivePageIndex:=PageIndex;
  end;

  with TMemo.Create(PageControlTest.ActivePage) do
  begin
    Parent := PageControlTest.ActivePage;
    Align := alClient;
  end;
end;

procedure TForm1.DeletePageClick(Sender: TObject);
begin
  PageControlTest.ActivePage.Free;
end;

initialization
  {$I Main.lrs}

end.


Если переключиться на другую вкладку, а потом удалить, то ошибки не возникает, но вкладка всё равно не удаляется

[Attid]

тестовый пример это когда в зипе 2 файла project1
и 3 файла unit1
=)

а это пример кода.

ev может всетаки разрешить присоединять файлы
сделать обьем не больше 512к и время хранения недельку ?