Добавлением своих компонентов на палитру

igrik

Описываю новый компонент для диалоговой формы наследуя от TfrxDialogControl. Всё как в руководстве.

Пытаюсь положить его на Диал. форму. Ругается на методе SetParent(nil);
а точнее на

inherited;
if FControl <> nil then
if AParent is TfrxDialogControl then
FControl.Parent := TWinControl(TfrxDialogControl(AParent).Control)
else if AParent is TfrxDialogPage then
FControl.Parent := TfrxDialogPage(AParent).DialogForm
else
FControl.Parent := frxParentForm;

Access violation at adress 00000000000.. 000

думал проблема в моём компоненте, но попробывал сделать TBevel, тот же рузультат.

igrik

сам нашёл ответ

было так
destructor TfrxLisButtonControl.Destroy;
begin
inherited Destroy;
FButton.Free;
end;

а надо так..
destructor TfrxLisButtonControl.Destroy;
begin
FButton.Free;
inherited Destroy;
end;