NumLock хорошо,опробую,спасибо.
При нажатие на кнопку пытаюсь удалить её,и её родителя, но вылетает EAbstrackError вот полный код компонента
Код:
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);
begin
b.Caption:='qwe';
// b.Parent.Free;
b.Free;
end;
end.
В чем проблема? И заодно спрошу куда прописать код что бы он срабатывал не при выставление объекта,а при запуске формы,что то типо OnActive компонента)