Проблема с созданием потомка класса.

← →
Provodnick (2003-03-29 00:26) [0]

Создал следующий класс:
TMyPanel=class(TPanel)
CloseButton:TButton;
constructor Create(Owner: TComponent); override;
procedure w2(Sender: TObject);
end;

constructor TMyPanel.Create(Owner: TComponent);
begin
inherited Create(Owner);
Self.Parent:=Owner as TWinControl;
Self.Left:=0;
Self.Height:=145;
Self.Width:=(Owner as TWinControl).Width-20;

CloseButton:=TButton.Create(Self);
CloseButton.Parent:=Self;
with CloseButton do begin
Left:=Self.Width-33;;
Top:=8;
Width:=25;
Height:=25;
Caption:="X";
Font.Charset:=DEFAULT_CHARSET;
Font.Color:=clWindowText;
Font.Height:=-11;
Font.Name:="MS Sans Serif";
Font.Style:=[fsBold];
ParentFont:=False;
OnClick:=Self.w2;
TabOrder:=0
end;

procedure TMyPanel.w2(Sender: TObject);
begin
Self.Free
end;

Но при нажатии на кнопку периодически возникает ошибка (Abstract error). В качестве владельца
передается ScrollBox1. В чем проблема? Помогите пожалуйста.

← →
Provodnick (2003-03-30 00:40) [1]

Неужели ни у кого никаких идей?! Не верю...

← →
Юрий Зотов (2003-03-30 07:01) [2]

Не удаляйте панель сразу. Пошлите ей (строго через PostMessage) сообщение, а в его обработчике уже вызывайте Free.

← →
Provodnick (2003-03-30 15:04) [3]

Благодарю, попробую так.

Проблема с созданием потомка класса. Найти похожие ветки