|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Модификация компонентов PageControl и TTabSheet
Решил модифицировать 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. В чем проблема,где я лопухнулся? |