Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.10;
Скачать: CL | DM;

Вниз

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

 
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]

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



Страницы: 1 вся ветка

Текущий архив: 2003.04.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
14-30548
Nemra
2003-03-24 14:58
2003.04.10
Панели которые раскрываются


3-30222
minva74
2003-03-20 17:26
2003.04.10
TimeOut


4-30660
KDenis
2003-02-10 23:07
2003.04.10
Как убить процесс, зная его Handle?


7-30622
Sergei
2003-02-14 16:03
2003.04.10
Как запретить на машине запуск любых консольных приложений?


4-30642
SeF
2003-02-07 10:14
2003.04.10
UpdateResource