[JunkieBeat]

Решил модифицировать pageControl,а конкретней добавить кнопки на вкладки что бы те можно было закрывать.

Сделал все кроме самого уничтожения вот код класса MyTabSheet

Код:

unit MyTabSheet;
 
interface
 
uses
  SysUtils, Classes, Controls, ComCtrls,StdCtrls;
  var
    b:TButton;
type
  TMyTabSheet = class(TTabSheet)
  private
    { Private declarations }
  protected
    { Protected declarations }
    procedure OnClick(Sender:TObject);
  public
    { Public declarations }
  published
    { Published declarations }
    constructor Create(AOwner:TComponent);override;
  end;
 
procedure Register;
 
implementation
 
procedure Register;
begin
  RegisterComponents('MyComp', [TMyTabSheet]);
end;
 
{ TMyTabSheet }
 
constructor TMyTabSheet.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);;
  b:=TButton.Create(self);
    b.parent:=self;
    b.Height:=15;
    b.Width:=15;
    b.Caption:='x';
    b.Left:=10;
    b.top:=5;
    b.OnClick:=OnClick;
end;
 
procedure TMyTabSheet.OnClick(Sender: TObject);//OnClick кнопки 
begin
  b.Caption:='qwe';
 // b.Parent.Free;
  b.Free;
end;
 
end.

Как только нажимаю на кнопку вылетает EAbstrackError. В чем проблема,где я лопухнулся?

[Freeman]

За глобальные переменные расстрел на месте! Для начала внеси переменную b в секцию private своего класса.